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