1! RUN: not %f18 -funparse-with-symbols %s 2>&1 | FileCheck %s
2! CHECK: Label '60' was not found
3
4subroutine s(a)
5  real a(10)
6  write(*,60) "Hi there"
7end subroutine s
8