40 lines
1.1 KiB
Fortran
40 lines
1.1 KiB
Fortran
! { dg-do compile }
|
|
! { dg-options "-c -Wall" }
|
|
!
|
|
! PR fortran/20373
|
|
! cf. also PR fortran/40041
|
|
|
|
subroutine valid
|
|
intrinsic :: abs ! ok, intrinsic function
|
|
intrinsic :: cpu_time ! ok, intrinsic subroutine
|
|
end subroutine
|
|
|
|
subroutine warnings
|
|
! the follow three are ok in general, but ANY
|
|
! type is ignored, even the correct one
|
|
real, intrinsic :: sin ! { dg-warning "is ignored" }
|
|
|
|
real :: asin ! { dg-warning "is ignored" }
|
|
intrinsic :: asin
|
|
|
|
intrinsic :: tan ! { dg-warning "is ignored" }
|
|
real :: tan
|
|
|
|
! wrong types here
|
|
integer, intrinsic :: cos ! { dg-warning "is ignored" }
|
|
|
|
integer :: acos ! { dg-warning "is ignored" }
|
|
intrinsic :: acos
|
|
|
|
! ordering shall not matter
|
|
intrinsic :: atan ! { dg-warning "is ignored" }
|
|
integer :: atan
|
|
end subroutine
|
|
|
|
subroutine errors
|
|
intrinsic :: foo ! { dg-error "does not exist" }
|
|
real, intrinsic :: bar ! { dg-error "does not exist" }
|
|
|
|
real, intrinsic :: mvbits ! { dg-error "shall not have a type" }
|
|
end subroutine
|