syntax error on 4.9.2

[Steve Kargl]

On Tue, Nov 15, 2016 at 09:09:24PM +0330, Mahmood Naderan wrote:
> 
> You can find xml.f90 at http://pastebin.com/JsYnW9zU
> and xml.F at http://pastebin.com/XqSKptcP
> 

That doesn't help.  For xml.f90, I get

% gfc7 -c c.f90
c.f90:51:12:

         USE prec
            1
Fatal Error: Can't open module file 'prec.mod' for reading at
 (1): No such file or directory


To each of the failing routines, add 

character(len=:), allocatable :: ctmp

and change lines of the form

   CALL XML_TAG("set", comment="spin "//TRIM(ADJUSTL(strcounter)))

to

   ctmp = "spin "//TRIM(ADJUSTL(strcounter))
   call xml_tag("set", comment=cmtp)    

-- 
Steve