| ! { dg-do compile } |
| ! PR fortran/82934 |
| ! PR fortran/83318 |
| program a |
| character(len=42), allocatable :: f |
| character(len=22), allocatable :: ff |
| call alloc(f, ff) |
| if (len(f) .ne. 42) STOP 1 |
| if (len(ff) .ne. 22) STOP 2 |
| contains |
| subroutine alloc( a, b ) |
| character(len=*), allocatable :: a |
| character(len=22), allocatable :: b |
| character(len=:), allocatable :: c |
| character, allocatable :: d |
| allocate(character(len=*)::a,b) ! { dg-error "Incompatible allocate-object" } |
| allocate(character(len=*)::c) ! { dg-error "Incompatible allocate-object" } |
| allocate(character(len=*)::d) ! { dg-error "Incompatible allocate-object" } |
| end subroutine |
| end program a |
