comparison gcc/testsuite/gfortran.dg/multiple_allocation_3.f90 @ 111:04ced10e8804

gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900 (2017-10-27)
parents
children 84e7813d76e9
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
1 ! { dg-do run }
2 ! PR 49755 - If allocating an already allocated array, and stat=
3 ! is given, set stat to non zero and do not touch the array.
4 program test
5 integer, allocatable :: A(:, :)
6 integer :: stat
7
8 allocate(A(20,20))
9 A = 42
10
11 ! Allocate of already allocated variable
12 allocate (A(5,5), stat=stat)
13
14 ! Expected: Error stat and previous allocation status
15 if (stat == 0) call abort ()
16 if (any (shape (A) /= [20, 20])) call abort ()
17 if (any (A /= 42)) call abort ()
18 end program
19