11 lines
392 B
Fortran
11 lines
392 B
Fortran
! RUN: %python %S/test_folding.py %s %flang_fc1
|
|
! Tests folding of structure constructors in array constructors
|
|
module m
|
|
type :: t1
|
|
integer :: n
|
|
end type
|
|
type(t1), parameter :: xs1(*) = [(t1(j),j=1,5,2)]
|
|
type(t1), parameter :: xs2(*) = [(t1(j),j=5,1,-2)]
|
|
logical, parameter :: test_1 = all(xs1%n == [1, 3, 5])
|
|
logical, parameter :: test_2 = all(xs2%n == [5, 3, 1])
|
|
end module
|