mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
27 lines
757 B
Fortran
27 lines
757 B
Fortran
! { dg-do compile }
|
|
! { dg-options "-std=gnu" }
|
|
!
|
|
! Tests the fix for PR30237 in which alternate returns in intrinsic
|
|
! actual arglists were quietly ignored.
|
|
!
|
|
! Contributed by Brooks Moses <brooks@gcc.gnu.org>
|
|
!
|
|
program ar1
|
|
interface random_seed
|
|
subroutine x (a, *)
|
|
integer a
|
|
end subroutine x
|
|
end interface random_seed
|
|
|
|
real t1(2)
|
|
call cpu_time(*20) ! { dg-error "not permitted" }
|
|
call cpu_time(*20, t1(1)) ! { dg-error "Too many arguments" }
|
|
! This specific version is permitted by the generic interface.
|
|
call random_seed(i, *20)
|
|
! The new error gets overwritten but the diagnostic is clear enough.
|
|
call random_seed(i, *20, *30) ! { dg-error "not consistent" }
|
|
stop
|
|
20 write(*,*) t1
|
|
30 stop
|
|
end
|