Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/associate_12.f90 @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! ! PR 55199: [OOP] Equivalenced variable has wrong type when used with generic member function ! ! Contributed by Rich Townsend <townsend@astro.wisc.edu> module assoc_err_m implicit none type :: foo_t contains procedure :: func_1 generic :: func => func_1 end type contains real function func_1 (this) class(foo_t), intent(in) :: this end function end module program assoc_err use assoc_err_m implicit none type(foo_t) :: f associate(b => f%func()) print *, 1. + b end associate end program