PR tree-optimization/86415 - strlen() not folded for substrings within constant arrays
[official-gcc.git] / gcc / testsuite / gfortran.dg / pr68019.f90
blob2e304c3a26063da26d659e552106120b1176c425
1 ! { dg-do compile }
2 ! Original code from Gerhard Steinmetz
3 ! Gerhard dot Steinmetz for fortran at t-online dot de
4 ! PR fortran/68019
6 program p
7 integer :: i
8 type t
9 integer :: n
10 end type
11 type(t), parameter :: vec(*) = [(t(i), i = 1, 4)]
12 type(t), parameter :: arr(*) = reshape(vec, [2, 2]) ! { dg-error "ranks 1 and 2 in assignment" }
13 end