coarray_41.f90: Add "-latomic" option if libatomic_available.
[official-gcc.git] / gcc / testsuite / gfortran.dg / array_constructor_33.f90
blob79118af3f7becaa221d2bf65e6e72b6300c323e3
1 ! { dg-do compile }
2 ! { dg-timeout-factor 4 }
3 ! PR20923 gfortran slow for large array constructors.
4 ! Test case prepared from PR by Jerry DeLisle <jvdelisle@gcc.gnu.org>
5 program sel
6 implicit none
7 integer(kind=4),parameter :: n=1000
8 integer(kind=4) :: i,j
9 real(kind=4),dimension(n*n) :: vect
10 vect(:) = (/ ((( (i+j+3)),i=1,n),j=1,n) /)
11 end