1! RUN: %python %S/test_errors.py %s %flang_fc1 2! Check that computed goto express must be a scalar integer expression 3! TODO: PGI, for example, accepts a float & converts the value to int. 4 5REAL R 6COMPLEX Z 7LOGICAL L 8INTEGER, DIMENSION (2) :: B 9 10!ERROR: Must have INTEGER type, but is REAL(4) 11GOTO (100) 1.5 12!ERROR: Must have INTEGER type, but is LOGICAL(4) 13GOTO (100) .TRUE. 14!ERROR: Must have INTEGER type, but is REAL(4) 15GOTO (100) R 16!ERROR: Must have INTEGER type, but is COMPLEX(4) 17GOTO (100) Z 18!ERROR: Must be a scalar value, but is a rank-1 array 19GOTO (100) B 20 21100 CONTINUE 22 23END 24