| ! { dg-do compile } |
| |
| ! Initialization of character by non-character constructor |
| |
| subroutine s1 |
| type t |
| integer :: n = 0 |
| end type |
| type t2 |
| character :: c = t() ! { dg-error "Cannot convert TYPE\\(t\\) to CHARACTER\\(1\\)" } |
| end type |
| end subroutine |
| |
| subroutine s2 |
| type t |
| end type |
| type t2 |
| character :: c(1) = [t()] ! { dg-error "Cannot convert TYPE\\(t\\) to CHARACTER\\(1\\)" } |
| end type |
| end subroutine |
| |
| subroutine s3 |
| type t |
| integer :: a = 1 |
| character :: c = t() ! { dg-error "Cannot convert TYPE\\(t\\) to CHARACTER\\(1\\)" } |
| end type |
| end subroutine |
| |
| subroutine s4 |
| type t |
| integer, allocatable :: a |
| character :: c = t() ! { dg-error "Cannot convert TYPE\\(t\\) to CHARACTER\\(1\\)" } |
| end type |
| end subroutine |