23 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! Check for various alt return error conditions3 4 SUBROUTINE TEST (N, *, *)5 REAL :: R6 COMPLEX :: Z7 INTEGER, DIMENSION(2) :: B8 IF ( N .EQ. 0 ) RETURN9 IF ( N .EQ. 1 ) RETURN 110 IF ( N .EQ. 2 ) RETURN 211 IF ( N .EQ. 3 ) RETURN 312 IF ( N .EQ. 4 ) RETURN N13 IF ( N .EQ. 5 ) RETURN N * N14 IF ( N .EQ. 6 ) RETURN B(N)15 !ERROR: Must be a scalar value, but is a rank-1 array16 IF ( N .EQ. 7 ) RETURN B17 !ERROR: Must have INTEGER type, but is REAL(4)18 IF ( N .EQ. 8 ) RETURN R19 !ERROR: Must have INTEGER type, but is COMPLEX(4)20 IF ( N .EQ. 9 ) RETURN Z21 RETURN 222 END23