RISC-V: Regenerate opt urls.
[official-gcc.git] / gcc / testsuite / gfortran.dg / array_constructor_type_4.f03
blob8e54fc5782b6c8becc57b2d7456c7d5d45f7c557
1 ! { dg-do run }
3 ! PR fortran/27997
5 ! Ensure that :: is present when a typespec is deduced.
7 PROGRAM test
8   INTEGER :: array(1)
9   INTEGER = 42
11   array = [ INTEGER ]
12   IF (array(1) /= 42) THEN
13     STOP 1
14   END IF
15 END PROGRAM test