gcc/testsuite/gfortran.dg/c_assoc_4.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/49023
   4 !
   5 PROGRAM 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
  14 END PROGRAM test