| ! { dg-do compile } | |
| ! PR 93714 | |
| ! Original test case from G. Steinmetz | |
| program test | |
| character((1.)) :: a | |
| character, pointer :: b => a | |
| end program | |
| ! { dg-error "Scalar INTEGER expression expected" " " { target *-*-* } 6 } | |
| ! { dg-error "Different types in pointer assignment" " " { target *-*-* } 7 } |