PR tree-optimization/86415 - strlen() not folded for substrings within constant arrays
[official-gcc.git] / gcc / testsuite / gfortran.dg / pr59910.f90
blob2b288e4ff6c35b299afd03510a6fe98484d69cb6
1 ! { dg-do compile }
2 ! PR fortran/59910
4 program main
5 implicit none
6 type bar
7 integer :: limit(1)
8 end type
9 type (bar) :: testsuite
10 data testsuite / bar(reshape(source=[10],shape=[1])) /
11 end