1! RUN: %S/test_errors.sh %s %t %flang_fc1
2! REQUIRES: shell
3! Check for various alt return error conditions
4
5       SUBROUTINE TEST (N, *, *)
6       REAL :: R
7       COMPLEX :: Z
8       INTEGER, DIMENSION(2) :: B
9       IF ( N .EQ. 0 ) RETURN
10       IF ( N .EQ. 1 ) RETURN 1
11       IF ( N .EQ. 2 ) RETURN 2
12       IF ( N .EQ. 3 ) RETURN 3
13       IF ( N .EQ. 4 ) RETURN N
14       IF ( N .EQ. 5 ) RETURN N * N
15       IF ( N .EQ. 6 ) RETURN B(N)
16       !ERROR: Must be a scalar value, but is a rank-1 array
17       IF ( N .EQ. 7 ) RETURN B
18       !ERROR: Must have INTEGER type, but is REAL(4)
19       IF ( N .EQ. 8 ) RETURN R
20       !ERROR: Must have INTEGER type, but is COMPLEX(4)
21       IF ( N .EQ. 9 ) RETURN Z
22       RETURN 2
23       END
24