7 lines
180 B
Fortran
7 lines
180 B
Fortran
! RUN: not %flang_fc1 -fdebug-unparse-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
|