gcc/testsuite/gfortran.dg/associate_3.f03

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f2003" }
   3
   4 ! PR fortran/38936
   5 ! Check for errors with ASSOCIATE.
   6
   7 PROGRAM main
   8   IMPLICIT NONE
   9
  10   ASSOCIATE ! { dg-error "Expected association list" }
  11
  12   ASSOCIATE () ! { dg-error "Expected association" }
  13
  14   ASSOCIATE (a => 1) 5 ! { dg-error "Junk after ASSOCIATE" }
  15
  16   ASSOCIATE (x =>) ! { dg-error "Expected association" }
  17
  18   ASSOCIATE (=> 5) ! { dg-error "Expected association" }
  19
  20   ASSOCIATE (x => 5, ) ! { dg-error "Expected association" }
  21
  22   myname: ASSOCIATE (a => 1)
  23   END ASSOCIATE ! { dg-error "Expected block name of 'myname'" }
  24
  25   ASSOCIATE (b => 2)
  26   END ASSOCIATE myname ! { dg-error "Syntax error in END ASSOCIATE" }
  27
  28   myname2: ASSOCIATE (c => 3)
  29   END ASSOCIATE myname3 ! { dg-error "Expected label 'myname2'" }
  30
  31   ASSOCIATE (a => 1, b => 2, a => 3) ! { dg-error "Duplicate name 'a'" }
  32
  33   ASSOCIATE (a => 5)
  34     a = 4 ! { dg-error "variable definition context" }
  35   ENd ASSOCIATE
  36
  37   ASSOCIATE (a => 5)
  38     INTEGER :: b ! { dg-error "Unexpected data declaration statement" }
  39   END ASSOCIATE
  40 END PROGRAM main ! { dg-error "Expecting END ASSOCIATE" }
  41 ! { dg-excess-errors "Unexpected end of file" }