| ! { dg-do compile } | |
| ! { dg-options "-Wconversion" } | |
| ! PR 86119 - this used to warn. | |
| program proglen | |
| implicit none | |
| class(*), allocatable :: s | |
| integer :: l2 | |
| allocate(s, source = '123 ') | |
| select type(s) | |
| type is (character(len=*)) | |
| l2 = len(s) | |
| end select | |
| end program proglen |