! RUN: %flang_fc1 -emit-llvm -O2 -mllvm --enable-constant-argument-globalisation %s -o - | FileCheck %s

! CHECK: @_global_const_{{.*}} = internal constant i32 2
! CHECK: call void @take_int_(ptr nonnull @_global_const_{{.*}})

subroutine test()
  interface
  subroutine take_int(n)
    integer :: n
  end subroutine
  end interface
  call take_int(2)
end