mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
14 lines
305 B
Fortran
14 lines
305 B
Fortran
! { 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
|