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