subroutine s | |
end subroutine | |
program bug212606 | |
implicit none | |
type OutputDataDescript_t | |
integer n | |
end type | |
type (OutputDataDescript_t) :: descript | |
CHARACTER(LEN=4) :: type1 | |
CHARACTER(LEN=4) :: type2 | |
integer :: ns,type | |
type1 = type2 | |
type = 2 | |
end program |