blob: 5f1391edb60ebe570e32713b4ce3e7fc236e4d9c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
! { dg-do compile }
! This checks the fix for PR 26064
!
! Contributed by Sven Buijssen <sven.buijssen@math.uni-dortmund.de>
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
|