1! { dg-do compile } 2! 3! PR fortran/49023 4! 5PROGRAM test 6 7 USE, INTRINSIC :: iso_c_binding 8 IMPLICIT NONE 9 10 TYPE (C_PTR) :: x, y 11 12 PRINT *, C_ASSOCIATED([x,y]) ! { dg-error "'C_PTR_1' argument of 'c_associated' intrinsic at .1. must be a scalar" } 13 14END PROGRAM test 15