1! { dg-do run }
2! { dg-options "-ff2c" }
3! Verifies that internal functions are not broken by f2c calling conventions
4program 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
12contains
13function foo (p)
14  real, pointer :: foo
15  real, pointer :: p
16  foo => p
17end function
18end program
19