3 ! Tests the fixes for PR82719 and PR82720.
5 ! Contributed by Gerhard Steinmetz <gscfq@t-online.de>
8 character(120) :: buffer
15 type(t(:)), allocatable :: x
19 write (buffer, *) x%c ! Tests the fix for PR82720
21 if (trim (chr) .ne. 'ab') STOP 1
24 if (len (x%c) .ne. 3) STOP 2
25 write (buffer, *) x ! Tests the fix for PR82719
26 read (buffer, *) i, chr
28 if (chr .ne. 'xyz') STOP 4
31 read (buffer, *) x ! Some thought will be needed for PDT reads.
32 if (x%c .ne. 'lmn') STOP 5