mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
10 lines
314 B
Fortran
10 lines
314 B
Fortran
! { dg-do compile }
|
|
! PR41859 ICE on invalid expression involving DT with pointer components in I/O.
|
|
! The parens around p below are significant.
|
|
TYPE :: ptype
|
|
character, pointer, dimension(:) :: x => null()
|
|
END TYPE
|
|
TYPE(ptype) :: p
|
|
print *, ((((p)))) ! { dg-error "Data transfer element" }
|
|
end
|