Mercurial > hg > CbC > CbC_gcc
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 |