phiopt: Fix VCE moving by rewriting it into cast [PR116098]

[official-gcc.git] / gcc / testsuite / gfortran.fortran-torture / execute / random_init.f90

! pr 15149
! verify the random number generator is functional
      program test_random
      implicit none
      real :: r(5) = 0.0

      call random_number(r)
      if (all (r .eq. 0)) STOP 1
      end program