Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/finalize_17.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 | 84e7813d76e9 |
children |
line wrap: on
line source
! { dg-do run } ! ! PR fortran/37336 ! ! Test for finalization of nonallocatable variables ! module m implicit none type t integer :: i contains final :: finit end type t integer, save :: called_final = -1 contains impure elemental subroutine finit(x) type(t), intent(in) :: x if (called_final == -1) STOP 1 called_final = called_final + 1 if (called_final /= x%i) STOP 2 end subroutine finit end module m use m implicit none type(t) :: x2, y2(2) block type(t) :: xx, yy(2) type(t), save :: x3, y3(2) yy%i = [1, 2] xx%i = 3 y3%i = [-4, -5] x3%i = -6 called_final = 0 end block if (called_final /= 3) STOP 1 called_final = -1 y2%i = [-7, -8] x2%i = -9 end