OSDN Git Service

2010-03-10 Tobias Burnus <burnus@net-b.de
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / c_assoc_3.f90
1 ! { dg-do compile }
2 !
3 ! PR fortran/43303
4 !
5 ! Contributed by Dennis Wassel
6 !
7 PROGRAM c_assoc
8   use iso_c_binding
9   type(c_ptr) :: x
10   x = c_null_ptr
11   print *, C_ASSOCIATED(x) ! <<< was ICEing here
12   if (C_ASSOCIATED(x)) call abort ()
13 END PROGRAM c_assoc