blob: 238ac3d9f261787ee35df5260240933e68467296 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
! { dg-do run }
! PR fortran/104619
module m
implicit none
type :: item
real :: x
end type item
type :: container
type(item) :: items(3)
end type container
end module
program p
use m
implicit none
type(item), allocatable :: items(:)
type(container) :: c
integer :: i, n
items = [item(3.0), item(4.0), item(5.0)]
c = container(items=[(items(i), i = 1, size(items))])
if (any (c%items% x /= items% x)) stop 1
n = size (items)
c = container(items=[(items(i), i = 1, n)])
if (any (c%items% x /= items% x)) stop 2
c = container(items=[(items(i), i = 1, 3)])
if (any (c%items% x /= items% x)) stop 3
end program
|