I use $ ~/gcc/bin/gfortran --version GNU Fortran 95 (GCC) 4.2.0 20051119 (experimental) and receive for the attached source file, after several warnings, the error /Users/eschnett/Cvanilla/arrangements/AEIDevelopment/Weyl/src/w_extract_multipoles.F90:370: internal compiler error: Bus error I also attach the complete screen output.
Created attachment 10304 [details] Failing source code
I forgot to mention my command line arguments: /Users/eschnett/gcc/bin/gfortran -mlongcall -ftrapv -fwrapv -g3 -Wall -Wshadow -Wsurprising -c -o $current_wd/w_extract_multipoles.F90.o $current_wd/w_extract_multipoles.f90
Created attachment 10305 [details] Complete screen output, i.e., all warnings before the error
Backtrace: #0 0x0000000000467551 in gfc_conv_function_call (se=0x7fffffc3b3b0, sym=0xc84ec0, arg=0xc855e0) at /home/pinskia/src/checkin/trunk/gcc/fortran/trans-expr.c:1607 #1 0x0000000000477289 in gfc_trans_call (code=0xc86150) at /home/pinskia/src/checkin/trunk/gcc/fortran/trans-stmt.c:222 #2 0x000000000045466b in gfc_trans_code (code=0xc86150) at /home/pinskia/src/checkin/trunk/gcc/fortran/trans.c:533 #3 0x0000000000476d67 in gfc_trans_do (code=0xc857d0) at /home/pinskia/src/checkin/trunk/gcc/fortran/trans-stmt.c:585 #4 0x00000000004544a9 in gfc_trans_code (code=0xc857d0) at /home/pinskia/src/checkin/trunk/gcc/fortran/trans.c:549 #5 0x0000000000463505 in gfc_generate_function_code (ns=0xc1d120) at /home/pinskia/src/checkin/trunk/gcc/fortran/trans-decl.c:2621 #6 0x0000000000439e8c in gfc_parse_file () at /home/pinskia/src/checkin/trunk/gcc/fortran/parse.c:2680 #7 0x000000000045380e in gfc_be_parse_file (set_yydebug=Variable "set_yydebug" is not available. ) at /home/pinskia/src/checkin/trunk/gcc/fortran/f95-lang.c:286 #8 0x000000000071cb28 in toplev_main (argc=Variable "argc" is not available. ) at /home/pinskia/src/checkin/trunk/gcc/toplev.c:990 #9 0x00002aaaaad1847b in __libc_start_main () from /lib/libc.so.6 #10 0x0000000000403eaa in _start () at ../sysdeps/x86_64/elf/start.S:113
Reduced testcase: subroutine w_combine_multipoles (cctk_dim, cctk_gsh, cctk_lsh, cctk_lbnd, cctk_ubnd, cctk_lssh, cctk_from,& &tetrad_mask,X0tetrad_n,X0weyl_invariants,X0weyl_scalars,X0weyl_scalars_multipoles,X1ricci_scalars,X1tetrad_l,X1tetrad_m,X1tetrad& &ts,X2weyl_scalars,weyl_scalars_multipoles_length,w_i,w_i_p,w_i_p_p,w_j,w_j_p,w_j_p_p,w_l0,w_l1,w_l2,w_l3,w_lambda,w_lambda_p,w_l& &sixx,psixy,psixz,psiy,psiyy,psiyz,psiz,psizz,r,shift_state,space_mask,x,y,z) INTEGER X0weyl_scalars_multipoles INTEGER weyl_scalars_multipoles_length COMPLEX*16 w_one_mp(X0weyl_scalars_multipoles,weyl_scalars_multipoles_length) interface integer function CCTK_IsThornActive (name) end function CCTK_IsThornActive end interface COMPLEX*16, allocatable :: factor(:) call cscale (w_one_mp (:num_modes, n), factor(:)) contains elemental subroutine cscale (var, sc) COMPLEX*16, intent(inout) :: var COMPLEX*16, intent(in) :: sc end subroutine cscale end subroutine w_combine_multipoles
*** This bug has been marked as a duplicate of 22146 ***