| ! { dg-do run } | |
| ! | |
| ! Tests the fix for PR82622 comment #1, where the declaration of | |
| ! 'x' choked during initialization. Once fixed, it was found that | |
| ! IO was not working correctly for PDT array components. | |
| ! | |
| ! Contributed by Gerhard Steinmetz <gscfq@t-online.de> | |
| ! | |
| program p | |
| character(120) :: buffer | |
| integer :: i(4) | |
| type t(a) | |
| integer, len :: a | |
| end type | |
| type t2(b) | |
| integer, len :: b | |
| type(t(1)) :: r(b) | |
| end type | |
| type(t2(3)) :: x | |
| write (buffer,*) x | |
| read (buffer,*) i | |
| if (any (i .ne. [3,1,1,1])) STOP 1 | |
| end |