OSDN Git Service

gcc/fortran/
[pf3gnuchains/gcc-fork.git] / 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