| |
| ! RUN: not %flang_fc1 -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s |
| ! CHECK: Label '50' was not found |
| ! CHECK: Label '55' is not in scope |
| ! CHECK: Label '70' is not a branch target |
| ! CHECK: Control flow use of '70' |
| |
| subroutine sub00(a,b,n,m) |
| real a(n,m) |
| real b(n,m) |
| if (n .ne. m) then |
| goto 50 |
| end if |
| 6 n = m |
| end subroutine sub00 |
| |
| subroutine sub01(a,b,n,m) |
| real a(n,m) |
| real b(n,m) |
| if (n .ne. m) then |
| goto 55 |
| else |
| 55 continue |
| end if |
| 60 n = m |
| end subroutine sub01 |
| |
| subroutine sub02(a,b,n,m) |
| real a(n,m) |
| real b(n,m) |
| if (n .ne. m) then |
| goto 70 |
| else |
| return |
| end if |
| 70 FORMAT (1x,i6) |
| end subroutine sub02 |
