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

["jvdelisle at verizon dot net" <gcc-bugzilla at gcc dot gnu dot org>]

[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