| ! { dg-do compile } | |
| ! PR fortran/66245 | |
| ! Original testcase by Gerhard Steinmetz | |
| ! <gerhard dot steinmetz dot fortran at t-online dot de> | |
| program p | |
| type t; end type | |
| class(t), allocatable :: x | |
| call s | |
| contains | |
| subroutine s | |
| select type ( x ) | |
| type is ( ) ! { dg-error "error in TYPE IS" } | |
| end select | |
| end subroutine s | |
| end program p |