1! RUN: %S/test_errors.sh %s %t %flang_fc1
2! REQUIRES: shell
3! NULL() intrinsic function error tests
4program test_random_seed
5  integer :: size_arg
6  integer, parameter :: size_arg_const = 343
7  integer, dimension(3), parameter :: put_arg = [9,8,7]
8  integer  :: get_arg_scalar
9  integer, dimension(3) :: get_arg
10  integer, dimension(3),parameter :: get_arg_const = [8,7,6]
11  call random_seed()
12  call random_seed(size_arg)
13  call random_seed(size=size_arg)
14  !ERROR: Actual argument associated with INTENT(OUT) dummy argument 'size=' must be definable
15  call random_seed(size_arg_const) ! error, size arg must be definable
16  !ERROR: 'size=' argument has unacceptable rank 1
17  call random_seed([1, 2, 3, 4]) ! Error, must be a scalar
18  call random_seed(put = [1, 2, 3, 4])
19  call random_seed(put = put_arg)
20  !ERROR: 'size=' argument has unacceptable rank 1
21  call random_seed(get_arg) ! Error, must be a scalar
22  call random_seed(get=get_arg)
23  !ERROR: 'get=' argument has unacceptable rank 0
24  call random_seed(get=get_arg_scalar) ! Error, GET arg must be of rank 1
25  !ERROR: Actual argument associated with INTENT(OUT) dummy argument 'get=' must be definable
26  call random_seed(get=get_arg_const) ! Error, GET arg must be definable
27  !ERROR: RANDOM_SEED must have either 1 or no arguments
28  call random_seed(size_arg, get_arg) ! Error, only 0 or 1 argument
29end program
30