| ! { dg-do compile } | |
| ! | |
| ! Test the fix for PR84869, where line 19 segfaulted. | |
| ! | |
| ! Contributed by Gerhard Steinmetz <gscfq@t-online.de> | |
| ! | |
| program p | |
| type t | |
| integer :: i | |
| end type | |
| call s | |
| contains | |
| function f() | |
| class(t), allocatable :: f(:) | |
| f = [(t(i), i = 1, 10)] | |
| end | |
| subroutine s | |
| class(*), allocatable :: z(:) | |
| allocate (z, source = f ()) ! Segfault in gfc_class_len_get. | |
| select type (z) | |
| type is (t) | |
| if (any (z%i /= [(i, i = 1,10)])) stop 1 | |
| end select | |
| end | |
| end |