blob: 3dafa068100fbe88e0cdf1fe7eafaf53a67b5dbd [file] [log] [blame]
! { dg-do compile }
!
! Test the fix for the testcase in comment 23 of PR96320, which used to
! fail with the message: Variable new_foo cannot appear in a variable
! definition context.
!
! Contributed by Damian Rouson <damian@sourceryinstitute.org>
!
module foobar
implicit none
type foo
integer bar
end type
interface
pure module function create() result(new_foo)
implicit none
type(foo) new_foo
end function
end interface
contains
module procedure create
new_foo%bar = 1 ! Error here
end procedure
end module
use foobar
print *, create ()
end