30 lines · plain
1! RUN: %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s2 3type :: t4end type5integer :: acos6double precision :: cos7!CHECK: Explicit type declaration ignored for intrinsic function 'int'8complex :: int9character :: sin10logical :: asin11type(t) :: atan12!CHECK: INTRINSIC statement for explicitly-typed 'int'13intrinsic int14!CHECK: The result type 'REAL(4)' of the intrinsic function 'acos' is not the explicit declared type 'INTEGER(4)'15!CHECK: Ignored declaration of intrinsic function 'acos'16print *, acos(0.)17!CHECK: The result type 'REAL(4)' of the intrinsic function 'cos' is not the explicit declared type 'REAL(8)'18!CHECK: Ignored declaration of intrinsic function 'cos'19print *, cos(0.)20!CHECK: The result type 'REAL(4)' of the intrinsic function 'sin' is not the explicit declared type 'CHARACTER(KIND=1,LEN=1_8)'21!CHECK: Ignored declaration of intrinsic function 'sin'22print *, sin(0.)23!CHECK: The result type 'REAL(4)' of the intrinsic function 'asin' is not the explicit declared type 'LOGICAL(4)'24!CHECK: Ignored declaration of intrinsic function 'asin'25print *, asin(0.)26!CHECK: The result type 'REAL(4)' of the intrinsic function 'atan' is not the explicit declared type 't'27!CHECK: Ignored declaration of intrinsic function 'atan'28print *, atan(0.)29end30