PR target/83368
[official-gcc.git] / gcc / testsuite / gfortran.dg / repeat_7.f90
blob82f8dbf4deaab62625f7aa1c7c2dedb6b3c7128d
1 ! { dg-do compile }
2 ! PR 66310
3 ! Make sure there is a limit to how large arrays we try to handle at
4 ! compile time.
5 program p
6 character, parameter :: z = 'z'
7 print *, repeat(z, huge(1_4))
8 end program p