1! { dg-do compile }
2!
3! PR 49112: [4.6/4.7 Regression] [OOP] Missing type-bound procedure, "duplicate save" warnings and internal compiler error
4!
5! Contributed by John <jwmwalrus@gmail.com>
6
7    implicit none
8    save
9
10    type :: DateTime
11    end type
12
13    class(DateTime), allocatable :: dt
14
15end
16