2010-12-20 Tobias Burnus <burnus@net-b.de>
[official-gcc.git] / gcc / testsuite / gfortran.dg / namelist_3.f90
blob68cc7d558ffd4de4d49683b731f130986ca01752
1 ! { dg-do compile }
2 ! Check that a pointer cannot be a member of a namelist
3 program namelist_3
4 integer,pointer :: x
5 allocate (x)
6 namelist /n/ x ! { dg-error "NAMELIST attribute conflicts with POINTER attribute" "" }
7 end program namelist_3