1! ICE with gfortran 4.5 at -O1: 2!gfcbug98.f90: In function ‘convert_cof’: 3!gfcbug98.f90:36:0: internal compiler error: in pt_solutions_same_restrict_base, 4!at tree-ssa-structalias.c:5072 5module foo 6 implicit none 7 type t_time 8 integer :: secs = 0 9 end type t_time 10contains 11 elemental function time_cyyyymmddhh (cyyyymmddhh) result (time) 12 type (t_time) :: time 13 character(len=10),intent(in) :: cyyyymmddhh 14 end function time_cyyyymmddhh 15 16 function nf90_open(path, mode, ncid) 17 character(len = *), intent(in) :: path 18 integer, intent(in) :: mode 19 integer, intent(out) :: ncid 20 integer :: nf90_open 21 end function nf90_open 22end module foo 23!============================================================================== 24module gfcbug98 25 use foo 26 implicit none 27 28 type t_fileinfo 29 character(len=10) :: atime = ' ' 30 end type t_fileinfo 31 32 type t_body 33 real :: bg(10) 34 end type t_body 35contains 36 subroutine convert_cof (ifile) 37 character(len=*) ,intent(in) :: ifile 38 39 character(len=5) :: version 40 type(t_fileinfo) :: gattr 41 type(t_time) :: atime 42 type(t_body),allocatable :: tmp_dat(:) 43 real ,allocatable :: BDA(:, :, :) 44 45 call open_input 46 call convert_data 47 contains 48 subroutine open_input 49 integer :: i,j 50 version = '' 51 j = nf90_open(ifile, 1, i) 52 end subroutine open_input 53 !-------------------------------------------------------------------------- 54 subroutine convert_data 55 BDA(1,:,1) = tmp_dat(1)% bg(:) 56 atime = time_cyyyymmddhh (gattr% atime) 57 end subroutine convert_data 58 end subroutine convert_cof 59end module gfcbug98 60