blob: c10b0abf707fcf2b454c8f2f1319344b98a7f89b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
! { dg-do compile }
! PR 46020 - check for clear error message
! { dg-options "" }
FUNCTION F_X(A) bind(c,name='F_X') ! { dg-error "must have length 1" }
CHARACTER*(*) F_X
END FUNCTION
FUNCTION F_Y(A) bind(c,name='F_Y') ! { dg-error "must have length 1" }
CHARACTER*(2) F_Y
END FUNCTION
|