7 lines
220 B
FortranFixed
7 lines
220 B
FortranFixed
|
SELECT CASE(IF2(A,B))
|
||
|
|
CASE(B"00"); WRITE (6,*) "Both false."
|
||
|
|
CASE(B"01"); WRITE (6,*) "B only."
|
||
|
|
CASE(B"10"); WRITE (6,*) "A only."
|
||
|
|
CASE(B"11"); WRITE (6,*) "Both true."
|
||
|
|
END SELECT
|