3 ! PR 49112: [4.6/4.7 Regression] [OOP] Missing type-bound procedure, "duplicate save" warnings and internal compiler error
5 ! Contributed by John <jwmwalrus@gmail.com>
12 integer :: year, month, day
14 procedure :: getFormattedString
17 type(DateTime) :: ISO_REFERENCE_DATE = DateTime(1875, 5, 20)
21 character function getFormattedString(dt)
27 print *,dt%getFormattedString()