New gfortran bug test case

Author: dhnza

gfortran-bugs/CMakeLists.txt

@@ -5,6 +5,7 @@ include(testing)
 
 project(gfortran-bug Fortran)
 
+add_compiler_test(SOURCES gfortran-20201204.f90 RUN_ONLY LABELS PR98141)
 add_compiler_test(SOURCES gfortran-20200501.f90 COMPILE_ONLY LABELS PR94909)
 add_compiler_test(SOURCES gfortran-20200402-file1.f90 gfortran-20200402-file2.f90
     LINK_ONLY LABELS PR94463)

gfortran-bugs/gfortran-20201204.f90

@@ -0,0 +1,36 @@
+module foo
+
+  type, public :: any_scalar
+    class(*), allocatable :: value
+  contains
+    procedure :: alloc
+  end type
+
+contains
+
+  subroutine alloc (this, value)
+    class(any_scalar), intent(out) :: this
+    class(*), intent(in) :: value
+    allocate(this%value, source=value)
+  end subroutine alloc
+
+end module foo
+
+
+program prog
+
+  use foo
+
+  type(any_scalar) :: s1, s2, s3
+  character(len=0) :: c
+
+  !! No problem
+  call s1%alloc(' ')
+
+  !! Segfault
+  call s2%alloc('')
+
+  !! Segfault
+  call s3%alloc(c)
+
+end program