1 subroutine test1 2 type t 3 sequence 4 character(8) c 5 end type t 6 type(t) :: tc, td 7 equivalence (tc, td) 8 tc%c='abcdefgh' 9 if (tc%c.ne.'abcdefgh'.or.td%c(1:1).ne.'a') STOP 1 10 end subroutine test1 11 program main 12 call test1 13 end program main 14