This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/82184] [8 Regression] 187.facerec in SPEC CPU 2000 miscompares
- From: "andrey.y.guskov at intel dot com" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: Wed, 13 Sep 2017 20:12:28 +0000
- Subject: [Bug fortran/82184] [8 Regression] 187.facerec in SPEC CPU 2000 miscompares
- Auto-submitted: auto-generated
- References: <bug-82184-4@http.gcc.gnu.org/bugzilla/>
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=82184
--- Comment #5 from Andrey Guskov <andrey.y.guskov at intel dot com> ---
program r187
call s()
call s()
contains
subroutine s()
complex(4), allocatable, save :: a(:, :)
complex(4), pointer, save :: b(:, :)
if (.not. associated(b)) then
allocate(a(2, 2))
allocate(b(2, 2))
a(1, 1) = cmplx(12, 34)
a(2, 2) = cmplx(56, 78)
else
b = transpose(a)
print *, merge("PASSED", "FAILED", a(1, 1) .eq. b(1, 1))
end if
end subroutine s
end program r187
# pre-r251949
$ gfortran -Ofast r187.f90 -o r187 && ./r187
PASSED
# post-r251949
$ gfortran -Ofast r187.f90 -o r187 && ./r187
FAILED