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