1! { dg-do compile } 2! Test the fix for a regression caused by the first fix of PR31879. 3! Reported by Tobias Burnus <burnus@gcc.gnu.org> 4! 5MODULE input_val_types 6 IMPLICIT NONE 7 INTEGER, PARAMETER :: default_string_length=80 8 TYPE val_type 9 CHARACTER(len=default_string_length), DIMENSION(:), POINTER :: c_val 10 END TYPE val_type 11CONTAINS 12 SUBROUTINE val_get (val, c_val) 13 TYPE(val_type), POINTER :: val 14 CHARACTER(LEN=*), INTENT(out) :: c_val 15 INTEGER :: i, l_out 16 i=1 17 c_val((i-1)*default_string_length+1:MIN (l_out, i*default_string_length)) = & 18 val%c_val(i)(1:MIN (80, l_out-(i-1)*default_string_length)) 19 END SUBROUTINE val_get 20END MODULE input_val_types 21