comparison gcc/testsuite/gfortran.dg/move_alloc_5.f90 @ 131:84e7813d76e9

gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
16 type(bar2), allocatable :: sm2 16 type(bar2), allocatable :: sm2
17 17
18 allocate (sm2) 18 allocate (sm2)
19 call move_alloc (sm2,sm) 19 call move_alloc (sm2,sm)
20 20
21 if (allocated(sm2)) call abort() 21 if (allocated(sm2)) STOP 1
22 if (.not. allocated(sm)) call abort() 22 if (.not. allocated(sm)) STOP 2
23 23
24 end program 24 end program