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
11 elemental function time_cyyyymmddhh (cyyyymmddhh) result (time)
13 character(len=10),intent(in) :: cyyyymmddhh
14 end function time_cyyyymmddhh
16 function nf90_open(path, mode, ncid)
17 character(len = *), intent(in) :: path
18 integer, intent(in) :: mode
19 integer, intent(out) :: ncid
21 end function nf90_open
23 !==============================================================================
29 character(len=10) :: atime = ' '
36 subroutine convert_cof (ifile)
37 character(len=*) ,intent(in) :: ifile
39 character(len=5) :: version
40 type(t_fileinfo) :: gattr
42 type(t_body),allocatable :: tmp_dat(:)
43 real ,allocatable :: BDA(:, :, :)
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