gcc/testsuite/g77.dg/fugly-assumed.f

   1 C Test compiler flags: -fugly-assumed
   2 C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
   3 C
   4 C { dg-do compile }
   5 C { dg-options "-fugly-assumed" }
   6       function f(i)
   7       integer i(1)
   8       f = i(1)+i(2)
   9       end