[Bug fortran/70673] ICE with module containing functions with allocatable character scalars

[davidgkinniburgh at yahoo dot co.uk]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=70673

--- Comment #1 from David Kinniburgh <davidgkinniburgh at yahoo dot co.uk> ---
Ah, maybe I reduced this too far as a1 and a2 are obviously uninitialized, but
still...