[Prev][Next][Index]

incorrect parsing/unparsing of write statement



The problem is illustrated in the following session: two single quotes
are missing from a write statement after parsing/unparsing the code
given below:

% cat write.f
      subroutine foo(dpr)

      integer dpr

      write(dpr, '('' PDS '')')

      end

% f2dep write.f
|...............................................|
      Sage/Indiana F2DEP version 1.3
|...............................................|

% unparse write.dep
       subroutine foo (dpr)
       integer  dpr
       write (unit = dpr,fmt = '(' PDS ')')
       end

% unparse write.dep > write_sg_unparse.f
% f77 -c write_sg_unparse.f
write_sg_unparse.f:
	foo:
"write_sg_unparse.f", line 3: Error: unbalanced quotes; closing quote
supplied
"write_sg_unparse.f", line 3: Error: syntax error at or near variable
name "pds"
Compilation failed

% f77 -c write.f
write.f:
	foo:

%


-Ming