URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [f2c_3.f90] - Diff between revs 149 and 154

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