default_numeric_type_1.f90

来自「用于进行gcc测试」· F90 代码 · 共 20 行

! { dg-do compile }
! { dg-options "-fdump-tree-original" }
! Tests the fix for PR 31222, in which the type of the arguments of abs
! and int below were not detected to be of default numeric type..
!
! Contributed by Tobias Burnus <[e-mail]>
!
subroutine mysub1(a,b,mode,dis)
!  integer :: mode
!  real :: dis
  dimension a(abs(mode)),b(int(dis))
  print *, mod
  write (*,*) abs(mode), nint(dis)
end subroutine

program testprog
  call mysub1((/1.,2./),(/1.,2.,3./),-2, 3.2)
end
! { dg-final { cleanup-tree-dump "original" } }