gcc/testsuite/gfortran.dg/f2c_3.f90

   1 ! { dg-do run }
   2 ! { dg-options "-ff2c" }
   3 ! Verifies that internal functions are not broken by f2c calling conventions
   4 program test
   5   real, target :: f
   6   real, pointer :: q
   7   real :: g
   8   f = 1.0
   9   q=>f
  10   g = foo(q)
  11   if (g .ne. 1.0) call abort
  12 contains
  13 function foo (p)
  14   real, pointer :: foo
  15   real, pointer :: p
  16   foo => p
  17 end function
  18 end program