mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
13 lines
372 B
Fortran
13 lines
372 B
Fortran
! { dg-do run }
|
|
! { dg-options "-fcoarray=lib -lcaf_single " }
|
|
! { dg-additional-options "-latomic" { target libatomic_available } }
|
|
! PR 71066 - this used to ICE
|
|
program p
|
|
real :: a(2,2)[*]
|
|
integer :: b(2,2)[*]
|
|
data a /4*0.0/
|
|
data b /1234, 2345, 3456, 4567/
|
|
if (any (a /= 0.0)) stop 1
|
|
if (any (b /= reshape([1234, 2345, 3456, 4567],[2,2]))) stop 2
|
|
end
|