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