sibling_dummy_procedure_3.f90

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

! { dg-do compile }
! This checks the fix for PR 26064
!
! Contributed by Sven Buijssen <[e-mail]>
module ice
  implicit none
  contains

    subroutine foo()
    contains

      subroutine bar(baz)
        integer, optional :: baz
        if (present(baz)) then
        endif
      end subroutine bar
    end subroutine foo
end module

! { dg-final { cleanup-modules "ice" } }