24 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! Check that computed goto express must be a scalar integer expression3! TODO: PGI, for example, accepts a float & converts the value to int.4 5REAL R6COMPLEX Z7LOGICAL L8INTEGER, DIMENSION (2) :: B9 10!ERROR: Must have INTEGER type, but is REAL(4)11GOTO (100) 1.512!ERROR: Must have INTEGER type, but is LOGICAL(4)13GOTO (100) .TRUE.14!ERROR: Must have INTEGER type, but is REAL(4)15GOTO (100) R16!ERROR: Must have INTEGER type, but is COMPLEX(4)17GOTO (100) Z18!ERROR: Must be a scalar value, but is a rank-1 array19GOTO (100) B20 21100 CONTINUE22 23END24