1! { dg-do compile }
2! { dg-options "-std=gnu" }
3
4       subroutine foo (a)
5       real t, a, baz
6       call bar (*10)
7       t = 2 * baz ()
8       IF (t.gt.0) t = baz ()
910     END
10