OSDN Git Service

2010-08-25 Jerry DeLisle <jvdelisle@gcc.gnu.org>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / der_io_4.f90
1 ! { dg-do compile }
2 ! PR41859 ICE on invalid expression involving DT with pointer components in I/O.
3 ! The parens around p below are significant.
4   TYPE :: ptype
5     character, pointer, dimension(:) :: x => null()
6   END TYPE
7   TYPE(ptype) :: p
8   print *, ((((p))))       ! { dg-error "Data transfer element" }
9 end