| ! { dg-do run } | |
| ! | |
| ! Tests the fix for PR82622. | |
| ! | |
| ! Contributed by Gerhard Steinmetz <gscfq@t-online.de> | |
| ! | |
| program p | |
| type t(a) | |
| integer, len :: a | |
| end type | |
| type t2(b) | |
| integer, len :: b | |
| type(t(1)) :: r(b) | |
| end type | |
| type(t2(:)), allocatable :: x | |
| allocate (t2(3) :: x) ! Used to segfault in trans-array.c. | |
| if (x%b .ne. 3) STOP 1 | |
| if (x%b .ne. size (x%r, 1)) STOP 2 | |
| if (any (x%r%a .ne. 1)) STOP 3 | |
| end |