Fix call and parameter pretty printing

Call was missing the call keyword from pretty printing.
And while StParameter uses the same decl as everywhere else, even in
Fortran77 it uses `=` for assigning values rather than the old style
initial value syntax.

src/Language/Fortran/PrettyPrint.hs

@@ -542,7 +542,9 @@ instance Pretty (Statement a) where
  | v >= Fortran90 = "namelist" <+> pprint' v namelist
  | otherwise = tooOld v "Namelist statement" Fortran90
 
- pprint' v (StParameter _ _ aDecls) = "parameter" <+> parens (pprint' v aDecls)
+ -- We reuse the declaration node, but parameter statements use `=` even in
+ -- the older standards
+ pprint' _ (StParameter _ _ aDecls) = "parameter" <+> parens (pprint' Fortran90 aDecls)
 
  pprint' v (StExternal _ _ vars) = "external" <+> pprint' v vars
  pprint' v (StIntrinsic _ _ vars) = "intrinsic" <+> pprint' v vars
@@ -650,7 +652,7 @@ instance Pretty (Statement a) where
  pprint' v (StGotoComputed _ _ labels target) =
  "goto" <+> parens (pprint' v labels) <+> pprint' v target
 
- pprint' v (StCall _ _ name args) = pprint' v name <+> parens (pprint' v args)
+ pprint' v (StCall _ _ name args) = "call" <+> pprint' v name <+> parens (pprint' v args)
 
  pprint' _ (StContinue _ _) = "continue"