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..
6 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
8 subroutine mysub1(a
,b
,mode
,dis
)
11 dimension a(abs(mode
)),b(int(dis
))
13 write (*,*) abs(mode
), nint(dis
)
17 call mysub1((/1.,2./),(/1.,2.,3./),-2, 3.2)
19 ! { dg-final { cleanup-tree-dump "original" } }