1! RUN: %python %S/test_errors.py %s %flang_fc1 -Werror 2 3! Accept free of cray pointer without warning 4subroutine free_cptr() 5 integer :: x 6 pointer(ptr_x, x) 7 call free(ptr_x) 8end subroutine 9 10subroutine free_i8() 11 integer(kind=1) :: x 12 ! WARNING: FREE should only be used with Cray pointers 13 call free(x) 14end subroutine 15 16 17subroutine free_i16() 18 integer(kind=2) :: x 19 ! WARNING: FREE should only be used with Cray pointers 20 call free(x) 21end subroutine 22 23subroutine free_i32() 24 integer(kind=4) :: x 25 ! WARNING: FREE should only be used with Cray pointers 26 call free(x) 27end subroutine 28 29subroutine free_i64() 30 integer(kind=8) :: x 31 ! WARNING: FREE should only be used with Cray pointers 32 call free(x) 33end subroutine 34