1! { dg-do run }
2!
3! Tests the fix for PR82622 comment #1, where the declaration of
4! 'x' choked during initialization. Once fixed, it was found that
5! IO was not working correctly for PDT array components.
6!
7! Contributed by Gerhard Steinmetz  <gscfq@t-online.de>
8!
9program p
10   character(120) :: buffer
11   integer :: i(4)
12   type t(a)
13      integer, len :: a
14   end type
15   type t2(b)
16      integer, len :: b
17      type(t(1)) :: r(b)
18   end type
19   type(t2(3)) :: x
20   write (buffer,*) x
21   read (buffer,*) i
22   if (any (i .ne. [3,1,1,1])) STOP 1
23end
24