1! RUN: not %f18 -funparse-with-symbols %s 2>&1 | FileCheck %s 2! CHECK: '60' not a FORMAT 3! CHECK: data transfer use of '60' 4 5subroutine s(a) 6 real a(10) 7 write(*,60) "Hi there" 860 continue 970 format (i8) 10end subroutine s 11