gcc/testsuite/gfortran.dg/default_numeric_type_1.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fdump-tree-original" }
   3 ! Tests the fix for PR 31222, in which the type of the arguments of abs
   4 ! and int below were not detected to be of default numeric type..
   5 !
   6 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
   7 !
   8 subroutine mysub1(a,b,mode,dis)
   9 !  integer :: mode
  10 !  real :: dis
  11   dimension a(abs(mode)),b(int(dis))
  12   print *, mod
  13   write (*,*) abs(mode), nint(dis)
  14 end subroutine
  15
  16 program testprog
  17   call mysub1((/1.,2./),(/1.,2.,3./),-2, 3.2)
  18 end
  19 ! { dg-final { cleanup-tree-dump "original" } }