Bug 135573

Summary: gfortran segmentation fault
Product: [openSUSE] SUSE LINUX 10.0 Reporter: Jürgen Wieferink <wieferink>
Component: DevelopmentAssignee: Richard Biener <rguenther>
Status: RESOLVED FIXED QA Contact: E-mail List <qa-bugs>
Severity: Normal    
Priority: P5 - None    
Version: Stable GCC Snapshot1   
Target Milestone: SUSE Linux 10.1   
Hardware: x86   
OS: SuSE Linux 10.0   
Whiteboard:
Found By: Other Services Priority:
Business Priority: Blocker: ---
Marketing QA Status: --- IT Deployment: ---
Attachments: gauss_int_gen.mod

Description Jürgen Wieferink 2005-11-25 16:39:47 UTC
Compiling the file:
=========================8<==================
module GAUSS_INT
  use GAUSS_INT_GEN
  implicit none
contains
end module GAUSS_INT
=========================>8==================
with the file gauss_int_gen.mod:
=========================8<==================
GFORTRAN module created from GAUSS_INT_GEN.f90 on Fri Nov 25 17:02:22 2005
If you edit this, you'll get what you deserve.

(() () () () () () ()
() () () () () () () () () () () () ())

()

()

()

(2 'gen_potential_rx' 'gauss_int_gen' 1 ((PROCEDURE UNKNOWN-INTENT
MODULE-PROC DECL SUBROUTINE) (UNKNOWN 0 ()) 3 0 (4 5 6 7 8 9 10) () 0 ()
())
10 'v' 'gauss_int_gen' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DIMENSION
DUMMY) (COMPLEX 8 ()) 0 0 () (3 EXPLICIT (OP (INTEGER 4 ()) 0 UMINUS (
VARIABLE (INTEGER 4 ()) 0 9 ((COMPONENT 11 12 'md') (ARRAY (ELEMENT 1 (
CONSTANT (INTEGER 4 ()) 0 '3') 1))))) (VARIABLE (INTEGER 4 ()) 0 9 ((
COMPONENT 11 12 'md') (ARRAY (ELEMENT 1 (CONSTANT (INTEGER 4 ()) 0 '3')
1)))) (OP (INTEGER 4 ()) 0 UMINUS (VARIABLE (INTEGER 4 ()) 0 9 ((
COMPONENT 11 12 'md') (ARRAY (ELEMENT 1 (CONSTANT (INTEGER 4 ()) 0 '2')
1))))) (VARIABLE (INTEGER 4 ()) 0 9 ((COMPONENT 11 12 'md') (ARRAY (
ELEMENT 1 (CONSTANT (INTEGER 4 ()) 0 '2') 1)))) (OP (INTEGER 4 ()) 0
UMINUS (VARIABLE (INTEGER 4 ()) 0 9 ((COMPONENT 11 12 'md') (ARRAY (
ELEMENT 1 (CONSTANT (INTEGER 4 ()) 0 '1') 1))))) (VARIABLE (INTEGER 4 ())
0 9 ((COMPONENT 11 12 'md') (ARRAY (ELEMENT 1 (CONSTANT (INTEGER 4 ()) 0
'1') 1))))) 0 () ())
9 'fp_para' 'gauss_int_gen' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY)
(DERIVED 11 ()) 0 0 () () 0 () ())
7 'rvec_sp' 'gauss_int_gen' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
DIMENSION DUMMY) (REAL 8 ()) 0 0 () (1 EXPLICIT (CONSTANT (INTEGER 4 ())
0 '1') (CONSTANT (INTEGER 4 ()) 0 '3')) 0 () ())
8 'gthres' 'gauss_int_gen' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (
REAL 8 ()) 0 0 () () 0 () ())
5 'sh_ia' 'gauss_int_gen' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (
DERIVED 13 ()) 0 0 () () 0 () ())
13 't_shell_ia' 'gauss_orb' 1 ((DERIVED UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN) (UNKNOWN 0 ()) 0 0 () () 0 ((14 'gamma_1' (REAL 8 ()) () 0 0 ())
(15 'gamma_2' (REAL 8 ()) () 0 0 ()) (16 'n_orb_1' (INTEGER 4 ()) () 0 0
()) (17 'n_orb_2' (INTEGER 4 ()) () 0 0 ()) (18 'orbs_1' (LOGICAL 4 ())
(1 EXPLICIT (CONSTANT (INTEGER 4 ()) 0 '1') (CONSTANT (INTEGER 4 ()) 0 '4'))
1 0 ()) (19 'orbs_2' (LOGICAL 4 ()) (1 EXPLICIT (CONSTANT (INTEGER 4 ())
0 '1') (CONSTANT (INTEGER 4 ()) 0 '4')) 1 0 ()) (20 'diffs_1' (LOGICAL 4
()) (1 EXPLICIT (CONSTANT (INTEGER 4 ()) 0 '1') (CONSTANT (INTEGER 4 ())
0 '5')) 1 0 ()) (21 'diffs_2' (LOGICAL 4 ()) (1 EXPLICIT (CONSTANT (
INTEGER 4 ()) 0 '1') (CONSTANT (INTEGER 4 ()) 0 '5')) 1 0 ()) (22
'n_ol_pow' (INTEGER 4 ()) () 0 0 ()) (23 'n_pow_1' (INTEGER 4 ()) () 0 0
()) (24 'n_pow_2' (INTEGER 4 ()) () 0 0 ()) (25 'n_poly' (INTEGER 4 ())
() 0 0 ()) (26 'n_poly_1' (INTEGER 4 ()) () 0 0 ()) (27 'n_poly_2' (
INTEGER 4 ()) () 0 0 ()) (28 'sss_coeff' (REAL 8 ()) () 0 0 ()) (29
'gamma_r' (REAL 8 ()) () 0 0 ()) (30 'gamma_x' (REAL 8 ()) () 0 0 ()) (
31 'gamma_g' (REAL 8 ()) () 0 0 ()) (32 'xi' (REAL 8 ()) () 0 0 ()) (33
'delta_1' (REAL 8 ()) () 0 0 ()) (34 'delta_2' (REAL 8 ()) () 0 0 ()) (
35 'pt_deltas' (REAL 8 ()) (3 EXPLICIT (CONSTANT (INTEGER 4 ()) 0 '0') (
CONSTANT (INTEGER 4 ()) 0 '3') (CONSTANT (INTEGER 4 ()) 0 '0') (
CONSTANT (INTEGER 4 ()) 0 '3') (CONSTANT (INTEGER 4 ()) 0 '0') (
CONSTANT (INTEGER 4 ()) 0 '5')) 1 0 ()) (36 'm1_s' (REAL 8 ()) () 0 0 ())
(37 'm1_p' (REAL 8 ()) () 0 0 ()) (38 'm1_d1' (REAL 8 ()) () 0 0 ()) (
39 'm1_d2x_to_da' (REAL 8 ()) () 0 0 ()) (40 'm1_d2y_to_da' (REAL 8 ())
() 0 0 ()) (41 'm1_d2z_to_da' (REAL 8 ()) () 0 0 ()) (42 'm1_d2x_to_db'
(REAL 8 ()) () 0 0 ()) (43 'm1_d2y_to_db' (REAL 8 ()) () 0 0 ()) (44
'm1_d2x_to_ss' (REAL 8 ()) () 0 0 ()) (45 'm1_d2y_to_ss' (REAL 8 ()) ()
0 0 ()) (46 'm1_d2z_to_ss' (REAL 8 ()) () 0 0 ()) (47 'm1_s_to_ss' (
REAL 8 ()) () 0 0 ()) (48 'm2_s' (REAL 8 ()) () 0 0 ()) (49 'm2_p' (
REAL 8 ()) () 0 0 ()) (50 'm2_d1' (REAL 8 ()) () 0 0 ()) (51
'm2_d2x_to_da' (REAL 8 ()) () 0 0 ()) (52 'm2_d2y_to_da' (REAL 8 ()) ()
0 0 ()) (53 'm2_d2z_to_da' (REAL 8 ()) () 0 0 ()) (54 'm2_d2x_to_db' (
REAL 8 ()) () 0 0 ()) (55 'm2_d2y_to_db' (REAL 8 ()) () 0 0 ()) (56
'm2_d2x_to_ss' (REAL 8 ()) () 0 0 ()) (57 'm2_d2y_to_ss' (REAL 8 ()) ()
0 0 ()) (58 'm2_d2z_to_ss' (REAL 8 ()) () 0 0 ()) (59 'm2_s_to_ss' (
REAL 8 ()) () 0 0 ()) (60 'm' (REAL 8 ()) (3 EXPLICIT (CONSTANT (
INTEGER 4 ()) 0 '0') (CONSTANT (INTEGER 4 ()) 0 '3') (CONSTANT (INTEGER
4 ()) 0 '0') (CONSTANT (INTEGER 4 ()) 0 '3') (CONSTANT (INTEGER 4 ()) 0
'0') (CONSTANT (INTEGER 4 ()) 0 '5')) 1 0 ())) PUBLIC ())
4 'u' 'gauss_int_gen' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DIMENSION
DUMMY) (REAL 8 ()) 0 0 () (2 EXPLICIT (CONSTANT (INTEGER 4 ()) 0 '1') (
CONSTANT (INTEGER 4 ()) 0 '20') (CONSTANT (INTEGER 4 ()) 0 '1') (
CONSTANT (INTEGER 4 ()) 0 '20')) 0 () ())
6 'rvec' 'gauss_int_gen' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DIMENSION
DUMMY) (REAL 8 ()) 0 0 () (1 EXPLICIT (CONSTANT (INTEGER 4 ()) 0 '1') (
CONSTANT (INTEGER 4 ()) 0 '3')) 0 () ())
11 't_fp_para' 'four_pot' 1 ((DERIVED UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN) (UNKNOWN 0 ()) 0 0 () () 0 ((61 'rec' (REAL 8 ()) (2 EXPLICIT (
CONSTANT (INTEGER 4 ()) 0 '1') (CONSTANT (INTEGER 4 ()) 0 '3') (
CONSTANT (INTEGER 4 ()) 0 '1') (CONSTANT (INTEGER 4 ()) 0 '3')) 1 0 ())
(62 'v_ec' (REAL 8 ()) () 0 0 ()) (12 'md' (INTEGER 4 ()) (1 EXPLICIT (
CONSTANT (INTEGER 4 ()) 0 '1') (CONSTANT (INTEGER 4 ()) 0 '3')) 1 0 ())
(63 'max_md' (INTEGER 4 ()) () 0 0 ()) (64 'symmetry' (LOGICAL 4 ()) (1
EXPLICIT (CONSTANT (INTEGER 4 ()) 0 '1') (CONSTANT (INTEGER 4 ()) 0 '15'))
1 0 ()) (65 'max_gsquare' (REAL 8 ()) () 0 0 ()) (66 'min_gcut' (REAL 8
()) () 0 0 ()) (67 'big_rec_neigh' (DERIVED 68 ()) () 0 0 ()) (69
'orth_len' (REAL 8 ()) (1 EXPLICIT (CONSTANT (INTEGER 4 ()) 0 '1') (
CONSTANT (INTEGER 4 ()) 0 '3')) 1 0 ()) (70 'z' (INTEGER 4 ()) (2
EXPLICIT (CONSTANT (INTEGER 4 ()) 0 '1') (CONSTANT (INTEGER 4 ()) 0 '3')
(CONSTANT (INTEGER 4 ()) 0 '1') (CONSTANT (INTEGER 4 ()) 0 '3')) 1 0 ())
(71 'detz' (INTEGER 4 ()) () 0 0 ()) (72 'dinvz' (INTEGER 4 ()) (2
EXPLICIT (CONSTANT (INTEGER 4 ()) 0 '1') (CONSTANT (INTEGER 4 ()) 0 '3')
(CONSTANT (INTEGER 4 ()) 0 '1') (CONSTANT (INTEGER 4 ()) 0 '3')) 1 0 ())
(73 'omd' (INTEGER 4 ()) (1 EXPLICIT (CONSTANT (INTEGER 4 ()) 0 '1') (
CONSTANT (INTEGER 4 ()) 0 '3')) 1 0 ()) (74 'max_omd' (INTEGER 4 ()) ()
0 0 ()) (75 'o_step' (INTEGER 4 ()) (1 EXPLICIT (CONSTANT (INTEGER 4 ())
0 '1') (CONSTANT (INTEGER 4 ()) 0 '3')) 1 0 ()) (76 'o_off' (INTEGER 4 ())
(3 DEFERRED () () () () () ()) 1 1 ())) PUBLIC ())
68 't_neigh' 'neighbours' 1 ((DERIVED UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN) (UNKNOWN 0 ()) 0 0 () () 0 ((77 'n_vec' (INTEGER 4 ()) () 0 0 ())
(78 'has_sym' (LOGICAL 4 ()) () 0 0 ()) (79 'vec' (REAL 8 ()) (2
DEFERRED () () () ()) 1 1 ()) (80 'red' (REAL 8 ()) (2 DEFERRED () () ()
()) 1 1 ())) PUBLIC ())
)

('gen_potential_rx' 0 2)
=========================>8==================
in the same directory using "gfortran -c GAUSS_INT.f90" leads to a segmentation fault.

$ gfortran -v
Using built-in specs.
Target: i586-suse-linux
Configured with: ../configure --enable-threads=posix --prefix=/usr --with-local-prefix=/usr/local --infodir=/usr/share/info --mandir=/usr/share/man --libdir=/usr/lib --libexecdir=/usr/lib --enable-languages=c,c++,objc,f95,java,ada --disable-checking --with-gxx-include-dir=/usr/include/c++/4.0.2 --enable-java-awt=gtk --disable-libjava-multilib --with-slibdir=/lib --with-system-zlib --enable-shared --enable-__cxa_atexit --without-system-libunwind --host=i586-suse-linux
Thread model: posix
gcc version 4.0.2 20050901 (prerelease) (SUSE Linux)

Juergen
Comment 1 Jürgen Wieferink 2005-11-25 16:41:38 UTC
Created attachment 58768 [details]
gauss_int_gen.mod

There was no sign that files could be uploaded after creating a ticket...
Comment 2 Richard Biener 2006-02-07 11:42:21 UTC
It seems this is invalid fortran as I get

tmp> gfortran -c t.f90
Fatal Error: Reading module gauss_int_gen at line 112 column 2: Expected integer

the ICE is fixed both on the gcc 4.0 branch and in upcoming CODE10.