RISC-V: Regenerate opt urls.

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

! { dg-do run }

program p
   logical, parameter :: a(0) = .true.
   real, parameter :: b(0) = 0
   complex, parameter :: c(0) = 0
   integer :: d
   data d /a%kind/
   data e /b%kind/
   data f /c%kind/
   if (d .ne. kind(a)) stop 1
   if (e .ne. kind(b)) stop 2
   if (f .ne. kind(c)) stop 3
end