mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
13 lines
197 B
Fortran
13 lines
197 B
Fortran
! { dg-do run }
|
|
!
|
|
! PR fortran/27997
|
|
!
|
|
! Array constructor with typespec.
|
|
!
|
|
real :: a(3)
|
|
integer :: j(3)
|
|
a = (/ integer :: 1.4, 2.2, 3.33 /)
|
|
j = (/ 1.4, 2.2, 3.33 /)
|
|
if( any(a /= j )) STOP 1
|
|
end
|