| ! { dg-do run } | |
| ! { dg-options "-ff2c" } | |
| ! Verifies that internal functions are not broken by f2c calling conventions | |
| program test | |
| real, target :: f | |
| real, pointer :: q | |
| real :: g | |
| f = 1.0 | |
| q=>f | |
| g = foo(q) | |
| if (g .ne. 1.0) STOP 1 | |
| contains | |
| function foo (p) | |
| real, pointer :: foo | |
| real, pointer :: p | |
| foo => p | |
| end function | |
| end program |