1!This used to ICE as we chose the wrong type for the 2! temporary to hold type%var 3! fortran/18157 4program testcase_fold 5 type :: struct 6 real :: var ! its julian sec 7 end type struct 8 type(struct), dimension(:), pointer :: mystruct 9 mystruct(:)%var = mystruct(:)%var 10END Program testcase_fold 11