5 call random_init(1., .false
.) ! { dg-error "must be LOGICAL" }
6 call random_init(.true
., 1) ! { dg-error "must be LOGICAL" }
9 call random_init(a
, .false
.) ! { dg-error "must be a scalar" }
10 call random_init(.false
., a
) ! { dg-error "must be a scalar" }