1! RUN: %S/test_errors.sh %s %t %flang_fc1 2! REQUIRES: shell 3! Check that only labels are allowed in arithmetic if statements. 4! TODO: Revisit error message "expected 'ASSIGN'" etc. 5! TODO: Revisit error message "expected one of '0123456789'" 6 7! TODO: BUG: Note that labels 500 and 600 do not exist and 8! ought to be flagged as errors. This oversight may be the 9! result of disabling semantic checking after syntax errors. 10 11if ( A ) 500, 600, 600 12100 CONTINUE 13200 CONTINUE 14300 CONTINUE 15 16!ERROR: expected 'ASSIGN' 17!ERROR: expected 'ALLOCATE (' 18!ERROR: expected '=>' 19!ERROR: expected '(' 20!ERROR: expected '=' 21if ( B ) A, 101, 301 22101 CONTINUE 23201 CONTINUE 24301 CONTINUE 25 26!ERROR: expected one of '0123456789' 27if ( B ) 102, A, 302 28102 CONTINUE 29202 CONTINUE 30302 CONTINUE 31 32!ERROR: expected one of '0123456789' 33if ( B ) 103, 103, A 34103 CONTINUE 35203 CONTINUE 36303 CONTINUE 37 38END 39