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

Ignoring revisions in .git-blame-ignore-revs. Click here to bypass and see the normal blame view.

11 lines
235 B
Fortran
Raw Normal View History

! RUN: not %flang_fc1 -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s
! CHECK: '60' not a FORMAT
! CHECK: data transfer use of '60'
subroutine s(a)
real a(10)
write(*,60) "Hi there"
60 continue
70 format (i8)
end subroutine s