RISC-V: Regenerate opt urls.
[official-gcc.git] / gcc / testsuite / gfortran.dg / pr93484_1.f90
blob3b6dbc9ad79eb3880fb5dc797ad2da23a1b3ac88
1 ! { dg-do compile }
3 program p
4 implicit none
5 integer :: x(4) = [1,2,3,4]
6 print *, [real(x(k))] ! { dg-error "Symbol 'k' at .1. has no IMPLICIT type" }
7 end