Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/typebound_proc_24.f03 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { 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