This is the mail archive of the gcc-help@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Re: compiler problem, gfortran, interface, darwin architecture, OS Panther 10.4


Please ignore my last mail. I was trying to reproduce a bug in a much larger code, but had an error in my small example causing a phantom bug:D

Simen

On Thu, 26 Jan 2006, Simen Reine wrote:

I have a compiliation problem, which as far as I can see (I'm no expert) is related to interface. I get an "internal compiler error:bus error, please submit a full bug report". I've been browsing bugzilla, and found a similar bug reported there (17615) dated september 2004. Here it seems the problem is fixed.

Is this still a problem for the darwin architectur, or am I simply doing something wrong?

I've downloaded gfortran from (Binaries: PANTHER g95-bin.tar.gz updated December 2005):
http://hpc.sourceforge.net/


The code that gives an error:
***************************************************************************************
---my_module.f90:
MODULE routines
IMPLICIT NONE
PRIVATE
PUBLIC :: my_allocate
INTERFACE my_allocate
 MODULE PROCEDURE allocate_1
 MODULE PROCEDURE allocate_2
END INTERFACE
INTEGER, PARAMETER        :: INTK = 8
INTEGER, PARAMETER        :: REALK = 8
CONTAINS
  SUBROUTINE allocate_1(name,array,a)

     IMPLICIT NONE
     REAL(REALK),   POINTER    :: array(:)
     INTEGER(INTK), INTENT(IN) :: a, name

     ALLOCATE(array(a))
  END SUBROUTINE allocate_1
  SUBROUTINE allocate_2(name,array,a,b)

     IMPLICIT NONE
     REAL(REALK),   POINTER    :: array(:,:)
     INTEGER(INTK), INTENT(IN) :: a,b, name

     ALLOCATE(array(a,b))
  END SUBROUTINE allocate_2

END MODULE

--bug.f90
MODULE fun
IMPLICIT NONE
PRIVATE
PUBLIC :: bug
CONTAINS
SUBROUTINE bug
USE routines
IMPLICIT NONE
 INTEGER, PARAMETER        :: INTK = 8
 INTEGER, PARAMETER        :: REALK = 8
 REAL(REALK),   POINTER    :: array(:), matrix(:,:)
 INTEGER(INTK)             :: a,b
 a    = 10
 b    = 50
 call my_allocate(1,array,a)
! call my_allocate(2,matrix,a,b)
END SUBROUTINE
END MODULE fun
****************************************************************************

I compile with:

gfortran -c my_module.f90
gfortran -c bug.f90

and get the following error message:


bug.f90:0: internal compiler error: Bus error
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.

______________________________________________________________

Simen S. Reine              E-mail    : simensr@kjemi.uio.no
Department of Chemistry     Telephone : (+47) 22 85 54 27
University of Oslo          Fax       : (+47) 22 85 54 41
P.O.Box 1033 Blindern       Mobile ph.: (+47) 93 40 58 71
N-0315 Oslo, Norway
______________________________________________________________



______________________________________________________________


Simen S. Reine              E-mail    : simensr@kjemi.uio.no
Department of Chemistry     Telephone : (+47) 22 85 54 27
University of Oslo          Fax       : (+47) 22 85 54 41
P.O.Box 1033 Blindern       Mobile ph.: (+47) 93 40 58 71
N-0315 Oslo, Norway
______________________________________________________________


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]