17 lines
262 B
Fortran
17 lines
262 B
Fortran
|
program matchup_parsing
|
||
|
|
real :: x = 1.0, y = 2.0, a
|
||
|
|
|
||
|
|
|
||
|
|
if (x < y) then
|
||
|
|
if (x == 0) stop
|
||
|
|
a = y / x
|
||
|
|
else
|
||
|
|
if (y == 0) stop ! matchup sees corresponding `if - end if` pairs from HERE
|
||
|
|
a = x / y
|
||
|
|
end if ! to HERE
|
||
|
|
|
||
|
|
write(*, *) a
|
||
|
|
|
||
|
|
end program
|
||
|
|
|