gcc/testsuite/gfortran.dg/array_constructor_type_4.f03

   1 ! { dg-do run }
   2 !
   3 ! PR fortran/27997
   4 !
   5 ! Ensure that :: is present when a typespec is deduced.
   6 !
   7 PROGRAM test
   8   INTEGER :: array(1)
   9   INTEGER = 42
  10
  11   array = [ INTEGER ]
  12   IF (array(1) /= 42) THEN
  13     CALL abort()
  14   END IF
  15 END PROGRAM test