1! RUN: not %flang_fc1 -fdebug-unparse-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