| ! { dg-do compile } | |
| ! | |
| ! PR 56266: [OOP] ICE on invalid in gfc_match_varspec | |
| ! | |
| ! Contributed by Andrew Benson <abensonca@gmail.com> | |
| module t | |
| implicit none | |
| type nc | |
| contains | |
| procedure :: encM => em | |
| end type nc | |
| contains | |
| double precision function em(self) | |
| class(nc) :: self | |
| em=0. | |
| end function | |
| double precision function cem(c) | |
| type(nc) :: c | |
| cem=c(i)%encM() ! { dg-error "Unclassifiable statement" } | |
| end function | |
| end module | |
| ! { dg-final { cleanup-modules "t" } } |