! { dg-do compile }! Tests the fix for PR25073 in which overlap in logical case! expressions was permitted.!! Contributed by Joost VandeVondele <jv244@cam.ac.uk>!LOGICAL::LSELECT CASE(L)CASE(.true.)CASE(.false.)CASE(.true.)! { dg-error "value in CASE statement is repeated" }END SELECTEND