11 lines · plain
1! RUN: not %flang_fc1 -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s2! CHECK: '60' not a FORMAT3! CHECK: data transfer use of '60'4 5subroutine s(a)6 real a(10)7 write(*,60) "Hi there"860 continue970 format (i8)10end subroutine s11