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
