22 lines · plain
1! RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s2subroutine s(oi,ol)3 integer(1), optional, intent(in) :: oi4 logical(1), optional, intent(in) :: ol5 integer(1), allocatable :: ai6 logical(1), allocatable :: al7 integer(1), pointer :: pi8 logical(1), pointer :: pl9!CHECK: PRINT *, ishftc(-1_4,1_4,oi)10!CHECK: PRINT *, ishftc(-1_4,1_4,ai)11!CHECK: PRINT *, ishftc(-1_4,1_4,pi)12!CHECK: PRINT *, findloc([INTEGER(4)::1_4,2_4,1_4],1_4,back=ol)13!CHECK: PRINT *, findloc([INTEGER(4)::1_4,2_4,1_4],1_4,back=al)14!CHECK: PRINT *, findloc([INTEGER(4)::1_4,2_4,1_4],1_4,back=pl)15 print *, ishftc(-1,1,oi)16 print *, ishftc(-1,1,ai)17 print *, ishftc(-1,1,pi)18 print *, findloc([1,2,1],1,back=ol)19 print *, findloc([1,2,1],1,back=al)20 print *, findloc([1,2,1],1,back=pl)21end22