RISC-V: Regenerate opt urls.

[official-gcc.git] / gcc / testsuite / gfortran.dg / pr93497.f90

! { dg-do compile } 

program p
   print *, [character(((/1/))) :: 'a','b'] ! { dg-error "Scalar INTEGER expression expected" }
   print *, [character(([1])) :: 'a','b']   ! { dg-error "Scalar INTEGER expression expected" }
   print *, [character(1+[1]) :: 'a','b']   ! { dg-error "Scalar INTEGER expression expected" }
end