Am 10.03.19 um 22:12 schrieb Thomas Koenig:
You're probably right, I will fix this. Ugh...
OK, so here is the updated test case, without the copyright stuff.
OK for trunk now? :-)
Regards
Thomas
! { dg-do compile }
! PR 87673 - used to cause errors about non-pure functions.
module x
implicit none
contains
pure function foo() result(res)
character(len=:), allocatable :: res
allocate (character(bar()) :: res)
end function foo
pure integer function bar()
bar = 1
end function bar
end module x
