18 lines
350 B
Fortran
18 lines
350 B
Fortran
! { dg-do compile }
|
|
! PR 16404 Nr. 8
|
|
! IO of derived types containing pointers is not allowed
|
|
program der_io_1
|
|
type t
|
|
integer, pointer :: p
|
|
end type
|
|
integer, target :: i
|
|
type (t) v
|
|
character(4) :: s
|
|
|
|
v%p => i
|
|
i = 42
|
|
write (unit=s, fmt='(I2)') v ! { dg-error "POINTER components" "" }
|
|
if (s .ne. '42') call abort ()
|
|
end program
|
|
|