1! pr 15149 2! verify the random number generator is functional 3 program test_random 4 implicit none 5 real :: r(5) = 0.0 6 7 call random_number(r) 8 if (all (r .eq. 0)) STOP 1 9 end program 10 11 12