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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [c_ptr_tests_7.f03] - Diff between revs 302 and 384

Rev 302	Rev 384
`! { dg-do run }`	`! { dg-do run }`
`! { dg-additional-sources c_ptr_tests_7_driver.c }`	`! { dg-additional-sources c_ptr_tests_7_driver.c }`
`module c_ptr_tests_7`	`module c_ptr_tests_7`
`use, intrinsic :: iso_c_binding, only: c_ptr, c_null_ptr`	`use, intrinsic :: iso_c_binding, only: c_ptr, c_null_ptr`

`contains`	`contains`
`function func0() bind(c)`	`function func0() bind(c)`
`type(c_ptr) :: func0`	`type(c_ptr) :: func0`
`func0 = c_null_ptr`	`func0 = c_null_ptr`
`end function func0`	`end function func0`
`end module c_ptr_tests_7`	`end module c_ptr_tests_7`
`! { dg-final { cleanup-modules "c_ptr_tests_7" } }`	`! { dg-final { cleanup-modules "c_ptr_tests_7" } }`