[Bug fortran/19339] New: FAIL: gfortran.fortran-torture/execute/forall_3.f90 execution

["danglin at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

# /opt/gnu64/bin/gdb forall_3.x
GNU gdb 6.3.50_2004-12-25-cvs
Copyright 2004 Free Software Foundation, Inc.
GDB is free software, covered by the GNU General Public License, and you are
welcome to change it and/or distribute copies of it under certain conditions.
Type "show copying" to see the conditions.
There is absolutely no warranty for GDB.  Type "show warranty" for details.
This GDB was configured as "hppa64-hp-hpux11.11"...
(gdb) r
Starting program: /test/gnu/gcc-3.3/objdir/gcc/testsuite/forall_3.x

Program received signal SIGABRT, Aborted.
0x800003fffef2c8b4 in kill () from /lib/pa20_64/libc.2

(gdb) disass 0x400000000000346c 0x400000000000349c
Dump of assembler code from 0x400000000000346c to 0x400000000000349c:
0x400000000000346c <MAIN__+3916>:       b,l,n 0x4000000000003398 <MAIN__+3704>,r0
0x4000000000003470 <MAIN__+3920>:       ldi 0,ret0
0x4000000000003474 <MAIN__+3924>:       ldd 250(r3),r31
0x4000000000003478 <MAIN__+3928>:       cmpb,*=,n ret0,r31,0x4000000000003490 <
MAIN__+3952>
0x400000000000347c <MAIN__+3932>:       ldo -30(sp),ret1
0x4000000000003480 <MAIN__+3936>:       copy dp,r4
0x4000000000003484 <MAIN__+3940>:       b,l 0x4000000000003794 <.stub+12>,%r2
0x4000000000003488 <MAIN__+3944>:       nop
(gdb) p/x $ret0
$2 = 0x0
(gdb) p/x $r31
$3 = 0x1

-- 
           Summary: FAIL: gfortran.fortran-torture/execute/forall_3.f90
                    execution
           Product: gcc
           Version: 4.0.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: danglin at gcc dot gnu dot org
                CC: gcc-bugs at gcc dot gnu dot org
 GCC build triplet: hppa*-*p-hpux*
  GCC host triplet: hppa*-*p-hpux*
GCC target triplet: hppa*-*p-hpux*


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