subroutine a()
c     BREG 314095: CONVERT SU12,13,15,17·
c     BREG 314095: CONVERT SU12,13,15,17·
      print *, "check"
      end subroutine a