aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/merge_bits_3.f90
blob: 8193b32ed161153aade8c1eaf5f520e289d77474 (plain)
1
2
3
4
5
! { dg-do compile }
program foo
   integer m
   m = merge_bits(b'010101', b"101010", 42) ! { dg-error "cannot both be" }
end program foo