35 lines · plain
1! RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s2! Ensures that parentheses are preserved with derived types3module m4 type :: t5 integer :: n6 end type7 contains8 subroutine sub(x)9 type(t), intent(in) :: x10 end subroutine11 function f(m)12 type(t), pointer :: f13 integer, intent(in) :: m14 type(t), save, target :: res15 res%n = m16 f => res17 end function18 subroutine test19 type(t) :: x20 x = t(1)21 !CHECK: CALL sub(t(n=1_4))22 call sub(t(1))23 !CHECK: CALL sub((t(n=1_4)))24 call sub((t(1)))25 !CHECK: CALL sub(x)26 call sub(x)27 !CHECK: CALL sub((x))28 call sub((x))29 !CHECK: CALL sub(f(2_4))30 call sub(f(2))31 !CHECK: CALL sub((f(2_4)))32 call sub((f(2)))33 end subroutine34end module35