! { dg-do run } ! ! PR fortran/27997 ! ! Ensure that :: is present when a typespec is deduced. ! PROGRAM test INTEGER :: array(1) INTEGER = 42 array = [ INTEGER ] IF (array(1) /= 42) THEN CALL abort() END IF END PROGRAM test