C OTST12.FOR C C Module for overlay testing of DOHAND. SUBROUTINE S12A TYPE *, 'S12A running' CALL s21a CALL s21b CALL s22a CALL s22b END SUBROUTINE S12B TYPE *, 'S12B running' END