module f77fdiag;

exports

imports filedefs from filedefs;
imports f77init from f77init;

procedure dummyfdiag;
procedure qfdiag(lp,gp,pc,acb,adiags:fsbit32; ddisp,mode,diag,asize,first:long;
                  var newacb:long);
                  
private
procedure dummyfdiag;
begin
end;

procedure qfdiag;
begin
writeln(curout^,'entering dummy qfdiag');
end.