| ! { 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 | |