Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/allocate_error_5.f90 @ 144:8f4e72ab4e11
fix segmentation fault caused by nothing next cur_op to end
author | Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Sun, 23 Dec 2018 21:23:56 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do run } ! { dg-additional-options "-fcheck=mem" } ! { dg-shouldfail "Fortran runtime error: Assignment of scalar to unallocated array" } ! ! This omission was encountered in the course of fixing PR54070. Whilst this is a ! very specific case, others such as allocatable components have been tested. ! ! Contributed by Tobias Burnus <burnus@gcc.gnu.org> ! function g(a) result (res) character(len=*) :: a character(len=:),allocatable :: res(:) res = a ! Since 'res' is not allocated, a runtime error should occur. end function interface function g(a) result(res) character(len=*) :: a character(len=:),allocatable :: res(:) end function end interface print *, g("ABC") end