34 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc1 -Werror2 3! Accept free of cray pointer without warning4subroutine free_cptr()5 integer :: x6 pointer(ptr_x, x)7 call free(ptr_x)8end subroutine9 10subroutine free_i8()11 integer(kind=1) :: x12 ! WARNING: FREE should only be used with Cray pointers13 call free(x)14end subroutine15 16 17subroutine free_i16()18 integer(kind=2) :: x19 ! WARNING: FREE should only be used with Cray pointers20 call free(x)21end subroutine22 23subroutine free_i32()24 integer(kind=4) :: x25 ! WARNING: FREE should only be used with Cray pointers26 call free(x)27end subroutine28 29subroutine free_i64()30 integer(kind=8) :: x31 ! WARNING: FREE should only be used with Cray pointers32 call free(x)33end subroutine34