2 ! Tests the fix for PR33370, in which array copying, with subreferences
3 ! was broken due to a regression.
5 ! Reported by Thomas Koenig <tkoenig@gcc.gnu.org>
12 type(foo), dimension(2) :: a = (/foo (1, "uvw"), foo (2, "xyz")/)
13 type(foo), dimension(2) :: b = (/foo (101, "abc"), foo (102, "def")/)
17 if (any (a%c .ne. (/"uvw", "xyz"/))) call abort ()
18 if (any (a%i .ne. (/12, 2/))) call abort ()
20 if (any (a%c .ne. (/"uvw", "xyz"/))) call abort ()
21 if (any (a%i .ne. (/101, 102/))) call abort ()