gcc/testsuite/gfortran.dg/random_init_1.f90

   1 ! { dg-do compile }
   2 program foo
   3    logical a(2)
   4    real x
   5    call random_init(1., .false.) ! { dg-error "must be LOGICAL" }
   6    call random_init(.true., 1)   ! { dg-error "must be LOGICAL" }
   7    call random_number(x)
   8    a = .true.
   9    call random_init(a, .false.) ! { dg-error "must be a scalar" }
  10    call random_init(.false., a) ! { dg-error "must be a scalar" }
  11 end program foo