| ! { dg-do compile } |
| ! |
| ! PR 49112: [4.6/4.7 Regression] [OOP] Missing type-bound procedure, "duplicate save" warnings and internal compiler error |
| ! |
| ! Contributed by John <jwmwalrus@gmail.com> |
| |
| module datetime_mod |
| |
| implicit none |
| |
| type :: DateTime |
| integer :: year, month, day |
| contains |
| procedure :: getFormattedString |
| end type |
| |
| type(DateTime) :: ISO_REFERENCE_DATE = DateTime(1875, 5, 20) |
| |
| contains |
| |
| character function getFormattedString(dt) |
| class(DateTime) :: dt |
| end function |
| |
| subroutine test |
| type(DateTime) :: dt |
| print *,dt%getFormattedString() |
| end subroutine |
| |
| end module |
| |
| ! { dg-final { cleanup-modules "datetime_mod" } } |