URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

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

Rev 302	Rev 384
`! { dg-do compile }`	`! { dg-do compile }`
`! Verifies that the c_loc scalar pointer tests recognize the string of length`	`! Verifies that the c_loc scalar pointer tests recognize the string of length`
`! one as being allowable for the parameter to c_loc.`	`! one as being allowable for the parameter to c_loc.`
`module x`	`module x`
`use iso_c_binding`	`use iso_c_binding`
`contains`	`contains`
`SUBROUTINE glutInit_f03()`	`SUBROUTINE glutInit_f03()`
`TYPE(C_PTR), DIMENSION(1), TARGET :: argv=C_NULL_PTR`	`TYPE(C_PTR), DIMENSION(1), TARGET :: argv=C_NULL_PTR`
`CHARACTER(C_CHAR), DIMENSION(10), TARGET :: empty_string=C_NULL_CHAR`	`CHARACTER(C_CHAR), DIMENSION(10), TARGET :: empty_string=C_NULL_CHAR`
`argv(1)=C_LOC(empty_string)`	`argv(1)=C_LOC(empty_string)`
`END SUBROUTINE`	`END SUBROUTINE`
`end module x`	`end module x`
`! { dg-final { cleanup-modules "x" } }`	`! { dg-final { cleanup-modules "x" } }`