gcc/testsuite/gfortran.dg/select_7.f90

   1 ! { dg-do compile }
   2 ! Tests the fix for PR25073 in which overlap in logical case
   3 ! expressions was permitted.
   4 !
   5 ! Contributed by Joost VandeVondele  <jv244@cam.ac.uk>
   6 !
   7 LOGICAL :: L
   8 SELECT CASE(L)
   9 CASE(.true.)
  10 CASE(.false.)
  11 CASE(.true.) ! { dg-error "value in CASE statement is repeated" }
  12 END SELECT
  13 END