Reproducer for gfortran bug 98141

[dhnza]

This PR adds a minimal reproducer for gfortran bug 98141.

[dhnza]

I'm guessing this should be RUN_ONLY, since I expect it to compile but to segfault when run.

[nncarlson]

Looking at your example and drawing on past experience, I suspected that the problem was with the sourced allocation statement, and that does appear the case (although there may be multiple compiler bugs here). Here's a minimal example that triggers a segfault:

class(*), allocatable :: a, b
allocate(character(len=0)::a)
allocate(b, source=a)
end

[dhnza]

Looking at your example and drawing on past experience, I suspected that the problem was with the sourced allocation statement, and that does appear the case (although there may be multiple compiler bugs here). Here's a minimal example that triggers a segfault:

class(*), allocatable :: a, b
allocate(character(len=0)::a)
allocate(b, source=a)
end

Nice! Strangely, this doesn't work

program foo
  class(*), allocatable :: a, b
  allocate(a, source='')  !! No problem
  allocate(b, source=a)  !! Segfaults                                                                                                                                                                                     
end program

I'll add these examples to the bug report.

[dhnza]

I'll also pare down the example in this MR and add the new examples.

[dhnza]

This does work, however:

program foo
  class(*), allocatable :: a
  character(len=0) :: s
  allocate(a, source=s)
end program

[dhnza]

This latest version has the minimal examples we found.