We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent ede5171 commit fd5e83eCopy full SHA for fd5e83e
flang/test/Lower/select-case-statement.f90
@@ -426,8 +426,11 @@ subroutine snested(str)
426
if (present(str)) then
427
! CHECK: fir.call @_FortranATrim
428
select case (trim(str))
429
+ ! == 'a'
430
! CHECK-O0: fir.call @_FortranACharacterCompareScalar1
431
! CHECK-O0-NEXT: arith.cmpi eq, {{.*}}, %c0_i32 : i32
432
+ ! CHECK-O1: fir.do_loop {{.*}} -> (i8) {
433
+ ! CHECK-O1: arith.cmpi eq, %{{[0-9]+}}, %c{{[0-9]+}}_i8 : i8
434
case ('a')
435
! CHECK-DAG: fir.store %c10_i32 to {{.*}} : !fir.ref<i32>
436
num = 10
0 commit comments