Sun Fortran 90 compiler error or not?

From: Bastiaan Braams (braams_at_courant.nyu.edu)
Date: 05/30/04


Date: 30 May 2004 14:47:21 -0700

What does the newsgroup make of the following? I'm working on a Sun
Solaris machine and my compilation fails with a segmentation fault.
The offending program follows, reduced to an essential minimum that
still produces the fault.

> f90 -V
f90: Forte Developer 7 Fortran 95 7.0 Patch 111714-09 2003/10/15

> f90 -O3 tmp.f90
"tmp.f90", Line = 26, Column = 1: INTERNAL: Interrupt: Segmentation Fault

> cat tmp.f90
MODULE m0
implicit none
private
integer, parameter, public :: m0_dim(0:3) = (/ 0, 1, 2, 3 /)
END MODULE m0
MODULE m1
use m0
implicit none
private
public :: m1_f
CONTAINS
FUNCTION m1_f (d) RESULT (w)
integer, intent (in) :: d
integer :: w(0:m0_dim(d)-1)
w = 0
return
END FUNCTION m1_f
END MODULE m1
PROGRAM main
use m0
use m1
implicit none
integer, parameter :: d=2
integer :: w(0:m0_dim(d)-1)
w = m1_f(d) ; write (*,*) w
write (*,*) m1_f(d)
stop
END PROGRAM main

Bas Braams

--
braams@mathcs.emory.edu