38 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! Check that only labels are allowed in arithmetic if statements.3! TODO: Revisit error message "expected 'ASSIGN'" etc.4! TODO: Revisit error message "expected one of '0123456789'"5 6! TODO: BUG: Note that labels 500 and 600 do not exist and7! ought to be flagged as errors. This oversight may be the8! result of disabling semantic checking after syntax errors.9 10if ( A ) 500, 600, 60011100 CONTINUE12200 CONTINUE13300 CONTINUE14 15!ERROR: expected 'ASSIGN'16!ERROR: expected 'ALLOCATE ('17!ERROR: expected '=>'18!ERROR: expected '('19!ERROR: expected '='20if ( B ) A, 101, 30121101 CONTINUE22201 CONTINUE23301 CONTINUE24 25!ERROR: expected one of '0123456789'26if ( B ) 102, A, 30227102 CONTINUE28202 CONTINUE29302 CONTINUE30 31!ERROR: expected one of '0123456789'32if ( B ) 103, 103, A33103 CONTINUE34203 CONTINUE35303 CONTINUE36 37END38