2 ! { dg-options "-c -Wall" }
5 intrinsic :: abs ! ok, intrinsic function
6 intrinsic :: cpu_time ! ok, intrinsic subroutine
10 ! the follow three are ok in general, but ANY
11 ! type is ignored, even the correct one
12 real, intrinsic :: sin ! { dg-warning "is ignored" }
14 real :: asin ! { dg-warning "is ignored" }
17 intrinsic :: tan ! { dg-warning "is ignored" }
21 integer, intrinsic :: cos ! { dg-warning "is ignored" }
23 integer :: acos ! { dg-warning "is ignored" }
26 ! ordering shall not matter
27 intrinsic :: atan ! { dg-warning "is ignored" }
32 intrinsic :: foo ! { dg-error "does not exist" }
33 real, intrinsic :: bar ! { dg-error "does not exist" }
35 real, intrinsic :: mvbits ! { dg-error "shall not have a type" }