[Bug fortran/14038] New: [gfortan] Mangled character in Hollerith

[Bug fortran/14038] New: [gfortan] Mangled character in Hollerith

[bdavis9659 at comcast dot net]

This was found while comparing the output files created when running the NIST
conformance tests between g77 and gfortran. 


Code to duplicate the problem:

 100  FORMAT (1H ,10X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978)
      WRITE(6,100)
      END

$/usr/local/bin/gfortran -static freg1.f
$ ./a.out
           FOR OFFICIAL USE ONLY - COPYRIGH 1978)

What it should look like:
$ g77 freg1.f
$ ./a.out
           FOR OFFICIAL USE ONLY - COPYRIGHT 1978


Notice the trailing ")".

The version of g95 is:  

GNU Fortran 95 (GCC 3.5-tree-ssa 20040205 (merged 20040126))

-- 
           Summary: [gfortan] Mangled character in Hollerith
           Product: gcc
           Version: tree-ssa
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: bdavis9659 at comcast dot net
                CC: gcc-bugs at gcc dot gnu dot org


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=14038

[Bug libfortran/14038] [gfortan] Mangled character in Hollerith

[pinskia at gcc dot gnu dot org]

------- Additional Comments From pinskia at gcc dot gnu dot org  2004-02-06 02:39 -------
Confirmed, the problem is in libfortran, I think:

MAIN__ ()
{
<bb 0>:
  _gfortran_filename = "pr14038.f";
  _gfortran_line = 2;
  _gfortran_ioparm.unit = 6;
  _gfortran_ioparm.format = "(1H ,10X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978)";
  _gfortran_ioparm.format_len = 51;
  _gfortran_st_write ();
  _gfortran_st_write_done ();
  return;

}

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
          Component|fortran                     |libfortran
     Ever Confirmed|                            |1
   Last reconfirmed|0000-00-00 00:00:00         |2004-02-06 02:39:08
               date|                            |
            Summary|[gfortan] Mangled character |[gfortan] Mangled character
                   |in Hollerith                |in Hollerith
   Target Milestone|---                         |tree-ssa


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=14038

[Bug libfortran/14038] [gfortan] Mangled character in Hollerith

[bdavis9659 at comcast dot net]

------- Additional Comments From bdavis9659 at comcast dot net  2004-02-06 05:37 -------
proposed patch:


http://gcc.gnu.org/ml/gcc-patches/2004-02/msg00524.html

-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=14038

[Bug libfortran/14038] [gfortan] Mangled character in Hollerith

[cvs-commit at gcc dot gnu dot org]

------- Additional Comments From cvs-commit at gcc dot gnu dot org  2004-02-07 15:40 -------
Subject: Bug 14038

CVSROOT:	/cvs/gcc
Module name:	gcc
Branch: 	tree-ssa-20020619-branch
Changes by:	pbrook@gcc.gnu.org	2004-02-07 15:40:30

Modified files:
	gcc/testsuite  : ChangeLog.tree-ssa 
Added files:
	gcc/testsuite/gfortran.fortran-torture/execute: hollerith.f90 

Log message:
	PR libfortran/14038
	* gfortran.fortran-torture/execute/holletith.f90: New test.

Patches:
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/ChangeLog.tree-ssa.diff?cvsroot=gcc&only_with_tag=tree-ssa-20020619-branch&r1=1.1.2.163&r2=1.1.2.164
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.fortran-torture/execute/hollerith.f90.diff?cvsroot=gcc&only_with_tag=tree-ssa-20020619-branch&r1=NONE&r2=1.1.2.1



-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=14038

[Bug libfortran/14038] [gfortan] Mangled character in Hollerith

[pbrook at gcc dot gnu dot org]

------- Additional Comments From pbrook at gcc dot gnu dot org  2004-02-07 15:45 -------
Fixed by this change: 
2004-02-07  Bud Davis  <bdavis9659@comcast.net> 
 
        * transfer.c (write_constant_string): Do not delete H's in hollerith 
        formats. 
 

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|NEW                         |RESOLVED
         Resolution|                            |FIXED


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=14038