| ! { dg-do compile } | |
| program foo | |
| logical a(2) | |
| real x | |
| call random_init(1., .false.) ! { dg-error "must be LOGICAL" } | |
| call random_init(.true., 1) ! { dg-error "must be LOGICAL" } | |
| call random_number(x) | |
| a = .true. | |
| call random_init(a, .false.) ! { dg-error "must be a scalar" } | |
| call random_init(.false., a) ! { dg-error "must be a scalar" } | |
| end program foo |