1! { dg-do run } 2! { dg-additional-options "-fcheck=mem" } 3! { dg-shouldfail "Fortran runtime error: Assignment of scalar to unallocated array" } 4! 5! This omission was encountered in the course of fixing PR54070. Whilst this is a 6! very specific case, others such as allocatable components have been tested. 7! 8! Contributed by Tobias Burnus <burnus@gcc.gnu.org> 9! 10function g(a) result (res) 11 character(len=*) :: a 12 character(len=:),allocatable :: res(:) 13 res = a ! Since 'res' is not allocated, a runtime error should occur. 14end function 15 16 interface 17 function g(a) result(res) 18 character(len=*) :: a 19 character(len=:),allocatable :: res(:) 20 end function 21 end interface 22 print *, g("ABC") 23end 24