blob: 7ec77c178f5d7dda61a91ea57b363a4cbee8de86 [file] [log] [blame]
! { dg-do compile }
! { dg-options "-std=gnu" }
subroutine foo (a)
real t, a, baz
call bar (*10)
t = 2 * baz ()
IF (t.gt.0) t = baz ()
10 END