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
|
subroutine hybrd(n)
implicit none
integer :: n
main : block
if ( n <= 0 ) then
exit main
else if ( n >= 2 ) then
if ( n <= 4 ) then
n = n +1
else
exit main
end if
else
n = n + 9
end if
n = n + 2
end block main
n = n + 3
print *, "n = ", n
end subroutine hybrd
program main
implicit none
integer :: n
n = -5
call hybrd(n)
if (n /= -2) error stop
n = 1
call hybrd(n)
if (n /= 15) error stop
n = 5
call hybrd(n)
if (n /= 8) error stop
end program main
|
