Bugzilla – Bug 135573
gfortran segmentation fault
Last modified: 2006-02-07 11:44: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
Created attachment 58768 [details] gauss_int_gen.mod There was no sign that files could be uploaded after creating a ticket...
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.