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