| ! { 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 |