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_assoc_3.f90] - Diff between revs 302 and 384

Rev 302	Rev 384
`! { dg-do compile }`	`! { dg-do compile }`
`!`	`!`
`! PR fortran/43303`	`! PR fortran/43303`
`!`	`!`
`! Contributed by Dennis Wassel`	`! Contributed by Dennis Wassel`
`!`	`!`
`PROGRAM c_assoc`	`PROGRAM c_assoc`
`use iso_c_binding`	`use iso_c_binding`
`type(c_ptr) :: x`	`type(c_ptr) :: x`
`x = c_null_ptr`	`x = c_null_ptr`
`print *, C_ASSOCIATED(x) ! <<< was ICEing here`	`print *, C_ASSOCIATED(x) ! <<< was ICEing here`
`if (C_ASSOCIATED(x)) call abort ()`	`if (C_ASSOCIATED(x)) call abort ()`
`END PROGRAM c_assoc`	`END PROGRAM c_assoc`