gcc/testsuite/gfortran.dg/allocate_derived_3.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 44929: [OOP] Parsing error of derived type name starting with 'REAL'
   4 !
   5 ! Contributed by Satish.BD <bdsatish@gmail.com>
   6
   7  type :: real_type
   8  end type
   9  class(real_type), allocatable :: obj
  10  real(8), allocatable :: r8
  11
  12  allocate(real_type :: obj)
  13
  14  allocate( real(kind=8) :: r8)
  15  allocate(real(8)  :: r8 )
  16
  17 end