gcc/testsuite/gfortran.dg/alloc_alloc_expr_1.f90

   1 ! { dg-do compile }
   2 program fc011
   3 ! Tests fix for PR20779 and PR20891.
   4 ! Submitted by Walt Brainerd, The Fortran Company
   5 ! and by Joost VandeVondele  <jv244@cam.ac.uk>
   6
   7 ! This program violates requirements of 6.3.1 of the F95 standard.
   8
   9 ! An allocate-object, or a subobject of an allocate-object, shall not appear
  10 ! in a bound in the same ALLOCATE statement. The stat-variable shall not appear
  11 ! in a bound in the same ALLOCATE statement.
  12
  13 ! The stat-variable shall not be allocated within the ALLOCATE statement in which
  14 ! it appears; nor shall it depend on the value, bounds, allocation status, or
  15 ! association status of any allocate-object or subobject of an allocate-object
  16 ! allocated in the same statement.
  17
  18   integer, pointer :: PTR
  19   integer, allocatable :: ALLOCS(:)
  20
  21   allocate (PTR, stat=PTR) ! { dg-error "in the same ALLOCATE statement" }
  22
  23   allocate (ALLOCS(10),stat=ALLOCS(1)) ! { dg-error "in the same ALLOCATE statement" }
  24
  25   ALLOCATE(PTR,ALLOCS(PTR)) ! { dg-error "same ALLOCATE statement" }
  26
  27   deallocate(ALLOCS(1)) ! { dg-error "must be ALLOCATABLE or a POINTER" }
  28
  29   print *, 'This program has four errors', PTR, ALLOC(1)
  30
  31 end program fc011