blob: 2c2b67c926d7126e3e5834202aacfcddf0af67ad (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
subroutine balpar
integer t, token (100)
integer gettok, gnbtok
integer nlpar
if (.not.(gnbtok (token, 100) .ne. 40))goto 23000
call synerr (19Hmissing left paren.)
return
23000 continue
call outstr (token)
nlpar = 1
23002 continue
t = gettok (token, 100)
if (.not.(t .eq. 59 .or. t .eq. 123 .or. t .eq. 125 .or. t .eq. -1
*))goto 23005
call pbstr (token)
goto 23004
23005 continue
if (.not.(t .eq. 10))goto 23007
token (1) = -2
goto 23008
23007 continue
if (.not.(t .eq. 40))goto 23009
nlpar = nlpar + 1
goto 23010
23009 continue
if (.not.(t .eq. 41))goto 23011
nlpar = nlpar - 1
23011 continue
23010 continue
23008 continue
if (.not.(t .eq. -9))goto 23013
call squash (token)
23013 continue
call outstr (token)
23003 if (.not.(nlpar .le. 0))goto 23002
23004 continue
if (.not.(nlpar .ne. 0))goto 23015
call synerr (33Hmissing parenthesis in condition.)
23015 continue
return
end
|
