coarray_41.f90: Add "-latomic" option if libatomic_available.
[official-gcc.git] / gcc / testsuite / gfortran.dg / select_6.f90
blob0e0f05244237f2e47fde356b82ee31e241551c0d
1 ! { dg-do compile }
2 ! PR fortran/27457
3 ! This lead to a segfault previously.
4 implicit none
5 integer(kind=1) :: i
6 real :: r(3)
7 select case (i)
8 case (129) r(4) = 0 ! { dg-error "Syntax error in CASE specification" }
9 end select
10 end