RISC-V: Regenerate opt urls.
[official-gcc.git] / gcc / testsuite / gfortran.dg / pr85796.f90
blob78683787fbb3c18c6d0254978a69479a6b406fb1
1 ! { dg-do compile }
2 ! PR fortran/85796 - Floating point exception with implied do in data statement
4 program p
5 implicit none
6 integer :: i, j, x(2,2)
7 data ((x(i,j),i=1,2,j-1),j=1,2) /3*789/ ! { dg-error "step of implied-do loop" }
8 end