gcc/testsuite/gfortran.dg/coarray_lib_token_3.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fcoarray=lib -fdump-tree-original" }
   3 !
   4 ! Test coarray registering
   5 !
   6 integer, allocatable :: CAF(:)[:], caf_scalar[:]
   7 allocate(CAF(1)[*])
   8 allocate(CAF_SCALAR[*])
   9 end
  10
  11 ! { dg-final { scan-tree-dump-times "_gfortran_caf_register \\(4, 1, &caf.token, \\(void \\*\\) &caf, 0B, 0B, 0\\);" 1 "original" } }
  12 ! { dg-final { scan-tree-dump-times "_gfortran_caf_register \\(4, 1, &caf_scalar.token, \\(void \\*\\) &caf_scalar, 0B, 0B, 0\\);" 1 "original" } }