Attachment 298872 Details for Bug 435964 – Typescript file to show that the compiler caused the internal error.

Typescript file to show that the compiler caused the internal error.

typescript (text/plain), 1.11 KB, created by Murakami Hiroshi on 2008-03-24 00:18:38 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Murakami Hiroshi

Created: 2008-03-24 00:18:38 UTC

Size: 1.11 KB

patch

obsolete

>Script started on Mon Mar 24 08:26:17 2008
>
>[murakami@faith2 tmp]$ cat subr.F90
>!******************************************
>!
>!
>!******************************************
>SUBROUTINE SUBR (M, N, A, B, C, PERMU, T)
>IMPLICIT NONE
>INTEGER M, N
>REAL    A(M,N), B(M,N), C(N,N)
>INTEGER PERMU(N)
>REAL    T
>!---------------------------------
>   REAL D(M,N)
>   D = A(:,PERMU) - MATMUL(B, C)
>   T = MAXVAL(D)
>END SUBROUTINE
>
>
>[murakami@faith2 tmp]$ gfortran subr.F90
>subr.F90: In function 'subr':
>subr.F90:5: internal compiler error: Segmentation fault
>Please submit a full bug report,
>with preprocessed source if appropriate.
>See <URL:http://bugzilla.redhat.com/bugzilla> for instructions.
>[murakami@faith2 tmp]$ gfortran --version subr.F90
>GNU Fortran (GCC) 4.1.2 20070925 (Red Hat 4.1.2-27)
>Copyright (C) 2007 Free Software Foundation, Inc.
>
>GNU Fortran comes with NO WARRANTY, to the extent permitted by law.
>You may redistribute copies of GNU Fortran
>under the terms of the GNU General Public License.
>For more information about these matters, see the file named COPYING
>
>[murakami@faith2 tmp]$ exit
>exit
>
>Script done on Mon Mar 24 08:27:08 2008

Actions: View

Attachments on bug 435964: 296773 | 298872