https://gcc.gnu.org/bugzilla/show_bug.cgi?id=62242
--- Comment #2 from Joost VandeVondele <Joost.VandeVondele at mat dot ethz.ch>
---
Further reduced:
> cat bug.f90.orig
module gfbug
contains
pure function UpperCase(string) result(upper)
character(*), intent(IN) :: string
character(LEN(string)) :: upper
upper=string
end function
pure function isNotElementOf(array) result(status)
logical :: status
character(*), intent(IN) :: array(:)
status = ANY("a"==(/UpperCase(array(1))/))
end function
end module gfbug
which yields the same segfault.
A differently reduced testcase, however, yield a FE segfault and has been added
as PR62246.
