| 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 |