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
17end
18