llvm / llvm-project / 74cbd71072de4f20c5cb9852dc4cf96ac7a4b5a4 / . / flang / test / Semantics / resolve07.f90

! RUN: %python %S/test_errors.py %s %flang_fc1 | |

subroutine s1 | |

integer :: x(2) | |

!ERROR: The dimensions of 'x' have already been declared | |

allocatable :: x(:) | |

real :: y[1:*] | |

!ERROR: The codimensions of 'y' have already been declared | |

allocatable :: y[:] | |

end | |

subroutine s2 | |

target :: x(1) | |

!ERROR: The dimensions of 'x' have already been declared | |

integer :: x(2) | |

target :: y[1:*] | |

!ERROR: The codimensions of 'y' have already been declared | |

integer :: y[2:*] | |

end | |

subroutine s3 | |

dimension :: x(4), x2(8) | |

!ERROR: The dimensions of 'x' have already been declared | |

allocatable :: x(:) | |

codimension :: y[*], y2[1:2,2:*] | |

!ERROR: The codimensions of 'y' have already been declared | |

allocatable :: y[:] | |

end | |

subroutine s4 | |

integer, dimension(10) :: x(2,2), y | |

end |