| ! { 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 :: L | |
| SELECT CASE(L) | |
| CASE(.true.) | |
| CASE(.false.) | |
| CASE(.true.) ! { dg-error "value in CASE statement is repeated" } | |
| END SELECT | |
| END |