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') call abort
10      end subroutine test1
11      program main
12      call test1
13      end program main
14