1! { dg-do compile } 2! 3! PR 63363: No diagnostic for passing function as actual argument to KIND 4! 5! Contributed by Ian Harvey <ian_harvey@bigpond.com> 6 7 type :: t 8 end type 9 type(t) :: d 10 class(*), allocatable :: c 11 12 print *, KIND(d) ! { dg-error "must be of intrinsic type" } 13 print *, KIND(c) ! { dg-error "must be of intrinsic type" } 14 15 print *, KIND(f) ! { dg-error "must be a data entity" } 16 print *, KIND(f()) 17 print *, KIND(s) ! { dg-error "must be a data entity" } 18contains 19 FUNCTION f() 20 INTEGER(SELECTED_INT_KIND(4)) :: f 21 END FUNCTION 22 subroutine s 23 end subroutine 24END 25