llvm-project/flang/test/Semantics/label09.f90

9 lines
205 B
Fortran

! RUN: %S/test_any.sh %s %flang %t
! EXEC: ${F18} -funparse-with-symbols %s 2>&1 | ${FileCheck} %s
! CHECK: Label '60' was not found
subroutine s(a)
real a(10)
write(*,60) "Hi there"
end subroutine s