| ! { 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 |
