diff options
Diffstat (limited to 'usr.bin/f2c/gram.exec')
-rw-r--r-- | usr.bin/f2c/gram.exec | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/usr.bin/f2c/gram.exec b/usr.bin/f2c/gram.exec index 0dc6010..39d7e42 100644 --- a/usr.bin/f2c/gram.exec +++ b/usr.bin/f2c/gram.exec @@ -1,10 +1,10 @@ exec: iffable - | SDO end_spec intonlyon label intonlyoff opt_comma dospecw + | SDO end_spec label opt_comma dospecw { - if($4->labdefined) + if($3->labdefined) execerr("no backward DO loops", CNULL); - $4->blklevel = blklevel+1; - exdo($4->labelno, NPNULL, $7); + $3->blklevel = blklevel+1; + exdo($3->labelno, NPNULL, $5); } | SDO end_spec opt_comma dospecw { |