| Index: gcc/gcc/testsuite/gfortran.dg/c_kind_tests_2.f03
|
| diff --git a/gcc/gcc/testsuite/gfortran.dg/c_kind_tests_2.f03 b/gcc/gcc/testsuite/gfortran.dg/c_kind_tests_2.f03
|
| index ced31a554ba831e897343e6fc89a814d7edc323e..a8cdbdff50c431389a6e7b2452f5f6eee0a5fbdc 100644
|
| --- a/gcc/gcc/testsuite/gfortran.dg/c_kind_tests_2.f03
|
| +++ b/gcc/gcc/testsuite/gfortran.dg/c_kind_tests_2.f03
|
| @@ -4,11 +4,12 @@ module c_kind_tests_2
|
|
|
| integer, parameter :: myF = c_float
|
| real(myF), bind(c) :: myCFloat
|
| - integer(myF), bind(c) :: myCInt ! { dg-error "is for type REAL" }
|
| - integer(c_double), bind(c) :: myCInt2 ! { dg-error "is for type REAL" }
|
| + integer(myF), bind(c) :: myCInt ! { dg-warning "is for type REAL" }
|
| + integer(c_double), bind(c) :: myCInt2 ! { dg-warning "is for type REAL" }
|
|
|
| integer, parameter :: myI = c_int
|
| - real(myI) :: myReal ! { dg-error "is for type INTEGER" }
|
| - real(myI), bind(c) :: myCFloat2 ! { dg-error "is for type INTEGER" }
|
| + real(myI) :: myReal ! { dg-warning "is for type INTEGER" }
|
| + real(myI), bind(c) :: myCFloat2 ! { dg-warning "is for type INTEGER" }
|
| real(4), bind(c) :: myFloat ! { dg-warning "may not be a C interoperable" }
|
| end module c_kind_tests_2
|
| +! { dg-final { cleanup-modules "c_kind_tests_2" } }
|
|
|