mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
6 lines
140 B
Plaintext
6 lines
140 B
Plaintext
! { dg-do run }
|
|
program stopper
|
|
real, dimension(5,5,5) :: i
|
|
error stop size(i) ! { dg-shouldfail "ERROR STOP 125" }
|
|
end program stopper
|