[Bug fortran/33380] New: Internal compiler error: in gen_lowpart_general, at rtlhooks.c:62

["longb at cray dot com" <gcc-bugzilla at gcc dot gnu dot org>]

Gfortran terminates with an internal compiler error for this test:

> cat test.f90
subroutine sub(var,thread_num)
!   derived from RTED_OpenMP/FORTRAN/SECTION_B/F_B_7_1_k_Z_s.f90
!   derived from RTED_OpenMP/FORTRAN/SECTION_B/F_B_7_2_k_Z_s.f90
    COMPLEX, INTENT(OUT) :: var
    integer, INTENT(IN) :: thread_num
    if (thread_num == 0) then
    !$OMP ATOMIC
            var = var + 2
    end if
end subroutine sub

> gfortran -fopenmp -c test.f90
test.f90: In function 'sub':
test.f90:7: internal compiler error: in gen_lowpart_general, at rtlhooks.c:62
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.

> gfortran -v
Using built-in specs.
Target: x86_64-suse-linux
Configured with: ../xt-gcc-4.2.1/configure --prefix=/opt/gcc/4.2.1/snos
--disable-nls --libdir=/opt/gcc/4.2.1/snos/lib --enable-languages=c,c++,fortran
--with-gxx-include-dir=/opt/gcc/4.2.1/snos/include/g++
--with-slibdir=/opt/gcc/4.2.1/snos/lib --with-sy
Thread model: posix
gcc version 4.2.1 20070719 (rpm:3)
>


-- 
           Summary: Internal compiler error: in gen_lowpart_general, at
                    rtlhooks.c:62
           Product: gcc
           Version: 4.2.1
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: longb at cray dot com
 GCC build triplet: x86_64-suse-linux
  GCC host triplet: x86_64-suse-linux
GCC target triplet: x86_64-suse-linux


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