%	fort77
%
%	Purpose:	user interface to fort77 module
%	Copyright:	R.A. van Engelen, Leiden University, 1997

fort77_switch isa switch.

hpf_forall isa fort77_switch.
enddo isa fort77_switch.
serial isa fort77_switch.
capcase isa fort77_switch.
uscore isa fort77_switch.
serial isa fort77_switch.

fortran_name_length isa counter.

fort(_G2509, _G2510) is intrinsic(module = fort77, result = nil).
fort(_G2509) is intrinsic(module = fort77, result = nil).
stmt(_G2509) is intrinsic(module = fort77, result = nil).
expr(_G2509) is intrinsic(module = fort77, result = nil).