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