optional_assumed_charlen_1.f90

来自「用于进行gcc测试」· F90 代码 · 共 21 行

! { dg-do compile }
! Tests the fix for PR29284 in which an ICE would occur in converting
! the call to a suboutine with an assumed character length, optional
! dummy that is not present.
!
! Contributed by Rakuen Himawari  <[e-mail]>
!
      MODULE foo
      CONTAINS
        SUBROUTINE sub1(a)
          CHARACTER (LEN=*), OPTIONAL :: a
          WRITE(*,*) 'foo bar'
        END SUBROUTINE sub1

      SUBROUTINE sub2
        CALL sub1()
      END SUBROUTINE sub2

     END MODULE foo
! { dg-final { cleanup-modules "foo" } }