[Bug fortran/18600] New: ICE NIST FM020.f reduced case

[Bug fortran/18600] New: ICE NIST FM020.f reduced case

[jvdelisle at verizon dot net]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 1854 bytes --]

[jerry@quantum debug]$ f95 554RED.f
554RED.f: In function ‘MAIN__’:
554RED.f:8: internal compiler error: in gfc_add_modify_expr, at fortran/trans.c:154

The code is as follows:

      PROGRAM FM020

      LOGICAL LFTN01, LDTN01                                            00250020

C..... TEST 554                                                         00340020
      LFTN01(LDTN01) = .TRUE.                                           00350020

      IVTNUM = 554                                                      01630020
C                                                                       01640020
C      ****  TEST 554  ****                                             01650020
C     TEST 554  -  TEST OF THE STATEMENT FUNCTION OF TYPE LOGICAL       01660020
C     SET TO THE LOGICAL CONSTANT .TRUE. REGARDLESS OF THE              01670020
C     ARGUEMENT SUPPLIED TO THE DUMMY ARGUEMENT.                        01680020
C     A LOGICAL    IF STATEMENT IS USED IN CONJUNCTION WITH THE LOGICAL 01690020
C     STATEMENT FUNCTION.  THE TRUE PATH IS TESTED.                     01700020
C                                                                       01710020
      IF ( LFTN01(.FALSE.) )  IVON01 = 1                                01760020
      END                                                               04810020

The offending statement is the IF just before the END.

-- 
           Summary: ICE NIST FM020.f reduced case
           Product: gcc
           Version: 4.0.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: jvdelisle at verizon dot net
                CC: gcc-bugs at gcc dot gnu dot org
  GCC host triplet: i686-pc-linux-gnu


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

[Bug fortran/18600] ICE NIST FM020.f reduced case

[pinskia at gcc dot gnu dot org]

------- Additional Comments From pinskia at gcc dot gnu dot org  2004-11-21 18:47 -------
Confirmed.

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
OtherBugsDependingO|                            |17423
              nThis|                            |
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|                            |1
           Keywords|                            |ice-on-valid-code
   Last reconfirmed|0000-00-00 00:00:00         |2004-11-21 18:47:02
               date|                            |


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

[Bug fortran/18600] ICE NIST FM020.f reduced case

[sgk at troutmask dot apl dot washington dot edu]

------- Additional Comments From sgk at troutmask dot apl dot washington dot edu  2005-01-02 19:10 -------
Here a further reduction of the problem.

This compiles fine

     logical a, b
     a(b) = .true.
     b = .false.
     if (a(b)) b = .true.
     end

The parse tree is

      ASSIGN b .false.
      IF a[[((b))]]
        ASSIGN b .true.
      ENDIF


This causes the ICE.

      logical a, b
      a(b) = .true.
      if (a(.false.)) b = .true.
      end

with the following parse tree

      IF a[[((.false.))]]
        ASSIGN b .true.
      ENDIF

The problem is in gfc_conv_statement_function(), which apparently
can't deal with an actual named constant parameter for its argument.

Unfortunately, I still don't know how to fix this.

-- 


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

[Bug fortran/18600] ICE NIST FM020.f reduced case

[tobi at gcc dot gnu dot org]

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
OtherBugsDependingO|                            |19292
              nThis|                            |


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

[Bug fortran/18600] ICE NIST FM020.f reduced case

[tobi at gcc dot gnu dot org]

------- Additional Comments From tobi at gcc dot gnu dot org  2005-03-13 17:32 -------
This works for me.  Can anybody else still confirm this?  Otherwise I'll add
this to the testsuite.

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |tobi at gcc dot gnu dot org
             Status|NEW                         |WAITING


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

[Bug fortran/18600] ICE NIST FM020.f reduced case

[pinskia at gcc dot gnu dot org]

------- Additional Comments From pinskia at gcc dot gnu dot org  2005-03-13 17:35 -------
This works for me also.

-- 


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

[Bug fortran/18600] ICE NIST FM020.f reduced case

[jvdelisle at verizon dot net]

------- Additional Comments From jvdelisle at verizon dot net  2005-03-13 19:04 -------
I also confirm that the ICE no longer occurs.  Running the original FM020.f test
program passes all tests.

-- 


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

[Bug fortran/18600] ICE NIST FM020.f reduced case

[tobi at gcc dot gnu dot org]

------- Additional Comments From tobi at gcc dot gnu dot org  2005-03-13 19:28 -------
Works now.

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|WAITING                     |RESOLVED
         Resolution|                            |WORKSFORME


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

[Bug fortran/18600] ICE NIST FM020.f reduced case

[cvs-commit at gcc dot gnu dot org]

------- Additional Comments From cvs-commit at gcc dot gnu dot org  2005-03-13 19:28 -------
Subject: Bug 18600

CVSROOT:	/cvs/gcc
Module name:	gcc
Changes by:	tobi@gcc.gnu.org	2005-03-13 19:28:19

Modified files:
	gcc/testsuite  : ChangeLog 
Added files:
	gcc/testsuite/gfortran.dg: stfunc_1.f90 

Log message:
	PR fortran/18600
	* gfortran.dg/stfunc_1.f90: New test.

Patches:
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/ChangeLog.diff?cvsroot=gcc&r1=1.5156&r2=1.5157
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.dg/stfunc_1.f90.diff?cvsroot=gcc&r1=NONE&r2=1.1



-- 


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