1! { dg-do run } 2! 3! PR fortran/27997 4! 5! Array constructor with typespec. 6! 7real :: a(3) 8integer :: j(3) 9a = (/ integer :: 1.4, 2.2, 3.33 /) 10j = (/ 1.4, 2.2, 3.33 /) 11if( any(a /= j )) call abort() 12end 13