gcc/testsuite/gfortran.dg/alloc_alloc_expr_2.f90

   1 ! { dg-do compile }
   2 ! This tests the fix for PR29343, in which the valid ALLOCATE statement
   3 ! below triggered an error following the patch for PR20779 and PR20891.
   4 !
   5 ! Contributed by Grigory Zagorodnev <grigory_zagorodnev@linux.intel.com>
   6 !
   7         Subroutine ReadParameters (Album)
   8         Implicit NONE
   9
  10
  11         Type GalleryP
  12                 Integer       :: NoOfEntries
  13                 Character(80), Pointer :: FileName (:)
  14         End Type GalleryP
  15
  16
  17         Type(GalleryP), Intent(Out) :: Album
  18         Allocate (Album%FileName   (Album%NoOfEntries))
  19         end