1! { dg-do compile }
2! { dg-options "-std=f95" }
3!
4! PR fortran/27997
5!
6! Array constructor with typespec
7! should be rejected for Fortran 95.
8!
9real :: a(3)
10integer :: j(3)
11a = (/ integer :: 1.4, 2.2, 3.33  /) ! { dg-error "Fortran 2003" }
12j = (/ 1.4, 2.2, 3.33  /)
13if( any(a /= j )) STOP 1
14end
15