flang/test/Semantics/label02.f90

   1
   2 ! RUN: not %flang_fc1 -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s
   3 ! CHECK: Label '0' is out of range
   4 ! CHECK: Label '100000' is out of range
   5 ! CHECK: Label '123456' is out of range
   6 ! CHECK: Label '123456' was not found
   7 ! CHECK: Label '1000' is not distinct
   8
   9 subroutine sub00(a,b,n,m)
  10   real a(n)
  11   real :: b(m)
  12 0 print *, "error"
  13 100000 print *, n
  14   goto 123456
  15 1000 print *, m
  16 1000 print *, m+1
  17 end subroutine sub00