gcc/testsuite/gfortran.dg/multiple_allocation_3.f90

   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