This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/80988] [8 Regression] 171_swim fails
- From: "tkoenig at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: Wed, 07 Jun 2017 16:18:41 +0000
- Subject: [Bug fortran/80988] [8 Regression] 171_swim fails
- Auto-submitted: auto-generated
- References: <bug-80988-4@http.gcc.gnu.org/bugzilla/>
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=80988
--- Comment #5 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
Simple test case:
$ cat swim.f90
program main
implicit none
integer :: i,j
integer, dimension(3,3) :: a
a = reshape([(((i*10+j),i=1,3),j=1,3)], shape(a))
print *,(a(i,i),i=1,3)
end program main
$ gfortran swim.f90 && ./a.out
11 22 33
$ gfortran -O swim.f90 && ./a.out
0 -188758720 32767
$