blob: 184266e5ec8b6dba615d8530a6e7a2f9cf7a8609 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
! { dg-do compile }
! { dg-options "-fcoarray=lib" }
! PR fortran/85895
subroutine p
character(80) :: c(2)
sync memory (errmsg=c) ! { dg-error "scalar CHARACTER variable" }
end subroutine p
subroutine q
character(80) :: c(2)
sync memory (errmsg=c(1:2)) ! { dg-error "scalar CHARACTER variable" }
end subroutine q
subroutine r
character(80) :: c(2)
sync memory (errmsg=c(1))
end subroutine r
|