1! RUN: bbc -emit-fir %s -o - | FileCheck %s
2! bbc doesn't have a way to set the default kinds so we use flang-new driver
3! RUN: flang-new -fc1 -fdefault-integer-8 -emit-fir %s -o - | FileCheck --check-prefixes=CHECK,CHECK-64  %s
4
5! CHECK-LABEL: argument_count_test
6subroutine argument_count_test()
7integer :: arg_count_test
8arg_count_test = command_argument_count()
9! CHECK: %[[argumentCount:.*]] = fir.call @_FortranAArgumentCount() : () -> i32
10! CHECK-64: %{{[0-9]+}} = fir.convert %[[argumentCount]] : (i32) -> i64
11end subroutine argument_count_test
12